以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  筛选出不含中文字符的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115242)

--  作者：yangwenghd --  发布时间：2018/3/3 16:36:00 --  筛选出不含中文字符的行 如果设计一个按钮筛选第一列没有中文字符的行该怎么写啊，，感谢，感谢

--  作者：有点蓝 --  发布时间：2018/3/3 16:49:00 --   增加一列逻辑列，datacolchanged事件 If e.DataCol.Name = "第一列" Then \'如果是已结帐列的内容变动     If e.DataRow.IsNull("第一列") Then         e.DataRow("逻辑列") = False     Else         Dim p2 As String = "[\\u4e00-\\u9fa5]"         Dim r As New System.Text.RegularExpressions.Regex(p2)         e.DataRow("逻辑列") = r.IsMatch(e.NewValue)     End If End If 然后筛选这样： tables("表A").filter = "逻辑列=false"

--  作者：yangwenghd --  发布时间：2018/3/3 17:04:00 --   感谢 感谢

--  作者：yangwenghd --  发布时间：2018/3/14 13:35:00 --   如果逻辑列得到的不是中文字符 而是 第一列和第二列的字符是否相同一个怎么改啊 感谢 感谢

--  作者：cbt --  发布时间：2018/3/14 14:48:00 --    CurrentTable.Filter="[第一列]=[第二列]"

--  作者：有点甜 --  发布时间：2018/3/14 15:01:00 --   If e.DataCol.Name = "第一列" OrElse e.DataCol.Name = "第二列" Then \'如果是已结帐列的内容变动     e.DataRow("逻辑列") = (e.datarow("第一列") = e.datarow("第二列")) End If