关于一个按键 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于一个按键

共有2878人关注过本帖树形打印复制链接主题：关于一个按键

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/4 10:38:00 [显示全部帖子]

dim r as row = tables("表A").current

If DataTables("表B").Find("第一列 = '" & r("第一列") & "' And 第二列 = '" & r("第二列") & "' And ......") Is Nothing Then

不匹配

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/4 11:13:00 [显示全部帖子]

dim r as row = tables("表A").current

If DataTables("表B").Find("第一列 = '" & r("第一列") & "' And 第二列 = '" & r("第二列") & "' And ...其它列自己补充完整...") Is Nothing Then

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/4 11:54:00 [显示全部帖子]

比如表事件

if vars("d") = true then

e.DataRow("编辑时间") = Today

end if

按钮

vars("d") = false

其它操作

vars("d") = true

主题：关于一个按键