MS clswindream entfernt Umstieg auf Modulwindream
This commit is contained in:
@@ -165,10 +165,10 @@ Public Class frmDocSearchResult
|
||||
End Sub
|
||||
|
||||
Private Sub docCM_Copy_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
|
||||
If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
|
||||
If ClassDocGrid.SELECTED_DOC_PATH <> "" Then
|
||||
Try
|
||||
Dim selectedfile(0) As String
|
||||
selectedfile(0) = ClassWindreamDocGrid.SELECTED_DOC_PATH
|
||||
selectedfile(0) = ClassDocGrid.SELECTED_DOC_PATH
|
||||
Dim dataobj As New DataObject
|
||||
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
|
||||
|
||||
@@ -183,8 +183,8 @@ Public Class frmDocSearchResult
|
||||
|
||||
Private Sub docCM_Showlinks_Click(sender As Object, e As EventArgs) Handles docCM_Showlinks.Click
|
||||
Try
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
ClassDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user