IDB Conform Step1
This commit is contained in:
@@ -135,7 +135,7 @@ Public Class frmValidatorSearch
|
||||
myGridControl = GridControlSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripSQL
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_ConId(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
Select Case TabIndex
|
||||
@@ -194,7 +194,7 @@ Public Class frmValidatorSearch
|
||||
myGridview = GridViewDocSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_ConId(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
clsWMDocGrid.DTDocuments = oDatatable
|
||||
|
||||
Reference in New Issue
Block a user