[求助]关联表格通过窗口输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关联表格通过窗口输入

共有2294人关注过本帖树形打印复制链接主题：[求助]关联表格通过窗口输入

davidwangdl

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

加好友

发短信

等级：婴狐帖子：23 积分：294 威望：0 精华：0 注册：2012/10/19 19:09:00

[求助]关联表格通过窗口输入 发帖心情

Post By：2017/2/6 10:28:00 [只看该作者]

Foxtable的老师，我想用这个软件做一些基础应该辅助平时的工作，所以对帮助没有很深入的阅读。可否帮忙实现以下的功能。

关于客户管理部分设计以下窗口

客户汇总

客户详情

联系人详情

客户联系记录

需要实现的功能如下：

1、通过客户汇总窗口可以看到所有客户的清单，双击表格当前行，可以弹出当前行的客户详情窗口

2、客户详情窗口点击增加联系人按钮可以弹出联系人详情窗口输入，弹出联系人详情窗口时希望客户编号可以从客户详情继承过来

3、客户详情窗口点击增加联系记录按钮可以弹出客户联系记录窗口输入，弹出客户联系记录窗口是希望客户编号可以从客户详情继承过来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:备份.rar

[此贴子已经被作者于2017/2/6 10:28:54编辑过]

davidwangdl

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

加好友

发短信

等级：婴狐帖子：23 积分：294 威望：0 精华：0 注册：2012/10/19 19:09:00

Post By：2017/2/6 10:30:00 [只看该作者]

此主题相关图片如下：客户汇总窗口.jpg

此主题相关图片如下：客户详情窗口.jpg

此主题相关图片如下：联系人详情窗口.jpg

davidwangdl

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

加好友

发短信

等级：婴狐帖子：23 积分：294 威望：0 精华：0 注册：2012/10/19 19:09:00

Post By：2017/2/6 10:30:00 [只看该作者]

此主题相关图片如下：客户联系记录窗口.jpg

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 10:43:00 [只看该作者]

直接赋值即可，比如按钮代码

Dim nr As Row = Tables("CONTACT_DETAIL").AddNew()
nr("CUST_NO") = Tables("CUSTOMER_lIST").current("CUST_NO")
Forms("联系人详情").open

davidwangdl

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

加好友

发短信

等级：婴狐帖子：23 积分：294 威望：0 精华：0 注册：2012/10/19 19:09:00

Post By：2017/2/6 13:07:00 [只看该作者]

此主题相关图片如下：客户汇总窗口.jpg

老师，在客户汇总窗口双击TABLE副本，弹出的窗口不是当前行的内容，这个是什么问题呢，该怎么处理？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 13:23:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/2631.htm

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("CUSTOMER_lIST").FindRow(dr)
If wz >=0 Then
Tables("CUSTOMER_lIST").Position = wz
End If

下一主题 >> << 上一主题

主题：[求助]关联表格通过窗口输入