主题：动态加载数据

'参考
'把现在有的数据的  _identify 保存起来
Dim sz As new List(of String)
For Each dr As DataRow In DataTables("表C").DataRows
    sz.Add(CStr( dr("_identify")))
Next
Dim fl As String=""

If sz.Count >0 Then
    Dim jh() As String = sz.ToArray
    fl = " or [_identify] in(" & String.Join(",",jh) & ")"
End If
'加载完毕...

DataTables("表C").LoadFilter= "第一列='1'" & fl
DataTables("表C").Load()