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

jj 14.03 fix clb

Browse Source
This commit is contained in:
JenneJ
2016-03-14 16:11:53 +01:00
parent 0786619d10
commit 68506182d7
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -355,7 +355,11 @@
Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, conn_Id, SQLCommand) Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, conn_Id, SQLCommand)
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
control.DataSource = dynamic.StaticList control.Items.Clear()
For Each item In dynamic.StaticList
control.Items.Add(item)
Next
'control.DataSource = dynamic.StaticList
End If End If
If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
@@ -401,9 +405,7 @@
' SQLCommand ignorieren ' SQLCommand ignorieren
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
control.DataSource = dynamic.StaticList.Select(Function(v) control.DataSource = dynamic.StaticList
Return New With {Key .Value = v}
End Function)
End If End If
End Sub End Sub