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
表格样式
出错代码:.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
语法错误:“Mod”运算符前缺少操作数。
此主题相关图片如下：l(zv8gbk3@rabjs3{{aqsv.png
加好友 
发短信
Post By：2019/2/25 21:21:00 [只看该作者]
