1、2：txt_TextChanged函数
Dim sender = args(0)
Dim e = args(1)
Dim _flex = sender.parent
Dim _row = _flex.rows.fixed-1
Dim _col = _flex.Col
_flex(_row, _col) = sender.Text
Dim filter As String = "1=1"
For i As Integer = 0 To _flex.Cols.count-1
Dim str As String = _flex(_row, i)
If str > "" Then
For Each s As String In str.Split("*")
filter &= " and convert(" & _flex.Cols(i).name & ",'System.String') Like '%" & s & "%'"
Next
End If
Next
Dim t As Table = Tables(_flex.name)
t.filter = filter
3、看懂afteropenproject事件代码，自己搬到窗口
加好友 
发短信
Post By：2019/1/8 20:25:00 [显示全部帖子]
