Dim strfind As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("strfind") Dim val As String = strfind.Text With CurrentTable Dim filter As String = "1=2" For Each c As Col In .Cols filter &= " or convert(" & c.name & ",System.String) like '%" & val & "%'" Next .Filter = filter End With
加好友 
发短信
Post By：2018/7/31 12:21:00 [显示全部帖子]
