If CurrentTable.Name.StartsWith("查看账页") Then
MessageBox.show("1")
If CurrentTable.Focus Then
Dim txtsx As WinForm.TextBox = e.Form.Controls("txtsx")
Dim T1 As Table =CurrentTable
Dim txt As String ="%" & Functions.Execute("RealStr",txtsx.text ) & "%"
Dim Filter As String '="分组_编码 like " & txt & " or 分组_名称 like " & txt & " Or 计量单位 Like " & txt
For i As Integer=0 To t1.Cols.Count-1
If t1.Cols(i).IsString Then
Filter=filter & t1.cols(i).Name & " like '" & txt & "' Or "
Else If t1.cols(i).IsNumeric Then
Filter=filter & t1.cols(i).Name & " = " & txt & " Or "
End If
Next
Filter=left(Filter,filter.Length-3)
'MessageBox.show(filter)
t1.Filter= Filter
End If
End If
表为动态创建表
此主题相关图片如下：l(zv8gbk3@rabjs3{{aqsv.png
加好友 
发短信
Post By：2019/2/25 21:11:00 [只看该作者]
