Foxtable(狐表)用户栏目专家坐堂 → [求助] 表间对比命令


  共有3252人关注过本帖树形打印复制链接

主题:[求助] 表间对比命令

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 表间对比命令  发帖心情 Post By:2014/6/11 18:19:00 [显示全部帖子]

我希望在项目的AfterOpenProject中设置如下几条命令,请教该怎么写: 1、如果表A中的“机器码”列第一行没有与表B“机器码”列有相同内容,就打开“窗口1”;如果有相同内容则 2、如果表A中的“注册码”列为空,就打开“窗口2”;否则如果表A中的“机器码”列和“注册码”列的内容在表B中找到有相同内容的行,就打开系统。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong1
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2014/6/12 9:42:00 [显示全部帖子]

我想实现以下需求:

1、在AfterOpenProject事件中写入;如果检测到表B中“机器码”列与表A“机器码”列内容相同的行中的“截止日期”的日期小于电脑当前日期、弹出提示。

2、在“填写注册码窗口”中的AfterLoad事件中写入;把光标移到表B中“机器码”列与表A“机器码”列第一行内容相同的行。

3、在“系统注册窗口”的 “获取机器码”按钮中写入;将表A“机器码”列第一行的内容写入到表B当前行的“机器码”列单元格中。

4、在“填写注册码窗口”的 “获取机器码”按钮中写入;将表B当前行的“注册码”内容填写入到表A第一行的“注册码”列单元格中。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong1
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2014/6/12 12:11:00 [显示全部帖子]

谢谢,主要是刚学又赶得急。麻烦再帮我看一下第四条,写的和第三条一样。

4、在“填写注册码窗口”的 “获取机器码”按钮中写入;将表B当前行的“注册码”内容填写入到表A第一行的“注册码”列单元格中。

Dim r As Row = Tables("表A").Rows(0)
r("注册码")=Tables("表B").Current("注册码")

应该是将表B中的注册码填到表A中去

 回到顶部