Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？


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

主题：[求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		[求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？  发帖心情 Post By：2017/2/14 9:13:00 [显示全部帖子]

“订单表”和“信息表”同有一列“客户”列，“信息表”是停靠在“订单表”的一个RecordGrid窗口控件中，当“订单表”中鼠标点击任意一列单元格时，该单元格所在行的客户的信息自动在“RecordGrid窗口控件”中显示出来，不使用关联表，应该如何写代码？
项目已经上传，请帮忙写下代码？谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2017/2/14 9:15:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		ok了，谢谢！  发帖心情 Post By：2017/2/14 9:37:00 [显示全部帖子]

ok了，谢谢！
[此贴子已经被作者于2017/2/14 9:38:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		谢谢呢！！！  发帖心情 Post By：2017/2/14 9:41:00 [显示全部帖子]

谢谢呢！！！

 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		写在datecolchanged中的代码失败了？？？  发帖心情 Post By：2017/2/15 10:41:00 [显示全部帖子]


If e.DataCol.name = "客户" Then
    Dim idx As Integer = Tables("意和客户信息表").FindRow("客户 = '" & e.DataRow("客户") & "'")
    If idx >= 0 Then
        Tables("意和客户信息表").Position = idx
    End If
End If
写在datecolchanged中的代码失败了？？？
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2017/2/15 11:00:00 [显示全部帖子]

CurrentChanged:
Dim cr As Row = e.Table.Current
If cr IsNot Nothing Then
    Dim idx As Integer = Tables("意和客户信息表").FindRow("客户 = '" & cr("客户") & "'")
    If idx >= 0 Then
        Tables("意和客户信息表").Position = idx
    End If
End If
有效果

datecolchanged:
If e.DataCol.name = "客户" Then
    Dim idx As Integer = Tables("意和客户信息表").FindRow("客户 = '" & e.DataRow("客户") & "'")
    If idx >= 0 Then
        Tables("意和客户信息表").Position = idx
    End If
End If
没效果
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		都写上的话，结果是一样的。  发帖心情 Post By：2017/2/16 10:40:00 [显示全部帖子]

都写上的话，结果是一样的，比如说：客户“北京”的第二列编辑后，鼠标必须在其他客户订单行上点击，然后回来点击该行“北京”订单，“客户信息表”才会显示更改后的数据变动，
现在希望的是，
比如说：客户“北京”的第二列编辑后，鼠标只要点击当前单元格以外的任意位置都可以使“客户信息表”显示更改数据，包括点击在当前客户行上也一样！？
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		晕了，你的版本过高，我打开不了啊  发帖心情 Post By：2017/2/16 10:56:00 [显示全部帖子]

晕了，你的版本过高，我打开不了啊

 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		即使是在当前客户行上点击，数据一样同步显示！？  发帖心情 Post By：2017/2/16 10:59:00 [显示全部帖子]

现在的效果是：
客户“北京”的第二列编辑后，鼠标必须在其他客户订单行上点击，然后回过头来点击该行“北京”订单，“客户信息表”才会显示更改后的数据变动，
而我希望达到的效果是，
客户“北京”的第二列编辑后，鼠标只要点击当前单元格以外的任意位置都可以使“客户信息表”显示更改数据，即使是在当前客户行上点击，数据一样同步显示！？
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		试过了，不行，是不是和“信息表”含关联列有关？之前上传的是不包含关联列的，我改了下项目，请帮忙看一下，谢谢！  发帖心情 Post By：2017/2/16 14:32:00 [显示全部帖子]

试过了，不行，是不是和“信息表”含关联列有关？之前上传的是不包含关联列的，我改了下项目，请帮忙看一下，谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1000.foxdb


[此贴子已经被作者于2017/2/16 14:31:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		不是啊，修改客户数据后，回车，直接就进入下一行客户了，依旧是要返回原来的行才能看到改动后的数据，就不能做到，编辑完成后，只要点击“除当前单元格外任意位置”，当前更改后的数据都会显示吗？  发帖心情 Post By：2017/2/16 15:05:00 [显示全部帖子]

不是啊，修改客户数据后，回车，直接就进入下一行客户了，依旧是要返回原来的行才能看到改动后的数据，
就不能做到，编辑完成后，只要点击“除当前单元格外任意位置”，当前更改后的数据都会显示吗？
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 7 次数据查询