| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 判断值是否相同 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144599) |
||||||||||||||||||
| -- 作者：wangnovel -- 发布时间：2019/12/25 10:59:00 -- 判断值是否相同 表一
要求：表一中，列1值相同的，对应列2中值要相同，如果有不同值，要提示，比如：a中，对应列2有不同值。
|
||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2019/12/25 11:04:00 -- 参考：http://www.foxtable.com/webhelp/topics/0624.htm 例如DataColChanging事件 If e.DataCol.Name = "列2" Then dim dr as datarow = e.datatable.find("列1 =\'" & e.datarow("列1") & "\' and 列2 <> \'" & e.NewValue & "\'") If dr isnot nothing Then msgbox("有不同值") e.Cancel = True \'取消变动。
End If End If |
||||||||||||||||||
| -- 作者：wangnovel -- 发布时间：2019/12/25 14:20:00 -- 直接用按钮呢？ |
||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2019/12/25 15:13:00 -- 那只能遍历了，每一行都和后面一行比较，如果列1相同，列2不相同就提示 |