jj 15.03 datagridview can add rows

This commit is contained in:
JenneJ
2016-03-15 14:41:45 +01:00
parent 7726db9872
commit 15b08db258
7 changed files with 80 additions and 48 deletions

View File

@@ -233,6 +233,11 @@ Public Class ClassControlValues
Dim picturebox = DirectCast(control, PictureBox)
LoadImage(recordId, controlId, picturebox)
Case GetType(DataGridView)
If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(DataGridView) ", False)
Dim gridview = DirectCast(control, DataGridView)
ControlLoader.DataGridView.LoadValue(gridview, values)
Case Else
If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
End Select
@@ -297,11 +302,6 @@ Public Class ClassControlValues
Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, ConnID, sqlcommand)
Case GetType(DataGridView)
Dim gridview = DirectCast(Ctrl, DataGridView)
Dim noSQL As String = ""
ControlLoader.DataGridView.LoadList(gridview, FormID, ConnID, noSQL)
End Select
swcontrol.Stop()