以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于一个按键 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140361) |
|
-- 作者:ygg8310 -- 发布时间:2019/9/4 10:33:00 -- 关于一个按键 想设计一个按键用来完成以下任务:表A第一列,第二列,第三列,第四列,第五列,第六列,第七列,匹配情况;表B第一列,第二列,第三列,第四列,第五列,第六列,第七列;在表A中点击按键就会查找表B,如果表A第一列,第二列,第三列,第四列,第五列,第六列,第七列 = 表B第一列,第二列,第三列,第四列,第五列,第六列,第七列 表A匹配情况 = 匹配 否则 不匹配,这个该如何实现呢? |
|
-- 作者:有点蓝 -- 发布时间:2019/9/4 10:38:00 -- dim r as row = tables("表A").current If DataTables("表B").Find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And ......") Is Nothing Then 不匹配
|
|
-- 作者:ygg8310 -- 发布时间:2019/9/4 10:53:00 --
为什么会出错呢?
|
|
-- 作者:有点蓝 -- 发布时间:2019/9/4 11:13:00 --
|
|
-- 作者:ygg8310 -- 发布时间:2019/9/4 11:31:00 -- 老师还有个问题,就是我在表中设置了一个e.DataRow("编辑时间") = Today的参数,有没有什么办法实现点击按键之后先关闭e.DataRow("编辑时间") = Today然后再执行,在执行完毕后又开启e.DataRow("编辑时间") = Today? |
|
-- 作者:有点蓝 -- 发布时间:2019/9/4 11:54:00 -- 比如表事件 if vars("d") = true then e.DataRow("编辑时间") = Today end if 按钮 vars("d") = false 其它操作 vars("d") = true |