With Tables("查询条件_Table1")
For i As Integer = .Cols.count-1 To 0 Step -1
.Cols.Remove(.Cols(i).name)
Next
End With
Dim tb As DataTable
Dim str As String=Nothing
Dim str1 As String=Nothing
Dim l As Integer=tb1.Cols.Count
Dim j As Integer=0
tb=DataTables("查询条件_Table1")
tb.DataCols.Add("字段",Gettype(String))
tb.DataCols.Add("条件",Gettype(String))
'tb.DataCols.Add("Eng",Gettype(String))
tb.DataCols.Add("值",Gettype(String))
Dim arr(0 To l-1,0 To 1) As String
With Tables("查询条件_Table1")
For i As Integer = .Rows.count-1 To 0 Step -1
.Rows.Delete(i)
Next
End With
For Each cl As Col In tb1.Cols
arr(j,0)=cl.Name
arr(j,1)=cl.Caption
zb.Add(cl.Caption,cl.Name)
If(j<>l) Then
str=str & cl.Name & "|"
str1=str1 & cl.Caption & "|"
Else
str=str & cl.Name
str1=str1 & cl.Caption
End If
j=j+1
Next
'vars.Add("sa",Gettype(Dictionary(Of String, String)),zd)
vars.Add("sl",Gettype(String),arr)
vars.Add("tbnv",Gettype(Integer),j)
Tables("查询条件_Table1").Cols("字段").ComboList=str1
'Tables("查询条件_Table1").Cols("Eng").ComboList=str
Tables("查询条件_Table1").Cols("条件").ComboList="LIKE|>|>=|=|<|<="
Tables("查询条件_Table1").AllowEdit=True
'For p As Integer=0 To j-1
'messagebox.show(arr(p,0) & "," & arr(p,1))
'Next
加好友 
发短信
Post By：2019/12/17 14:46:00 [只看该作者]
此主题相关图片如下：tt截图未命名.bmp
