AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 14.03 work on dgv

Browse Source
This commit is contained in:
JenneJ
2016-03-14 15:48:25 +01:00
parent 0f271342b6
commit 0786619d10
2 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organiser/ClassControlLoader.vb
View File

@@ -401,14 +401,9 @@
' SQLCommand ignorieren ' SQLCommand ignorieren
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
Dim bindingSource As New BindingSource() control.DataSource = dynamic.StaticList.Select(Function(v)
Return New With {Key .Value = v}
For Each item As String In dynamic.StaticList End Function)
bindingSource.Add(item)
Next
'control.DataSource = dynamic.StaticList
control.DataSource = bindingSource
End If End If
End Sub End Sub

2
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -257,7 +257,7 @@ Public Class ClassControlValues
' Zuerst alle SQL Commands für FormID finden ' Zuerst alle SQL Commands für FormID finden
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
swsql.Stop() swsql.Stop()