- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关联表格通过窗口输入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95811)
-- 发布时间：2017/2/6 10:28:00
-- [求助]关联表格通过窗口输入
Foxtable的老师，我想用这个软件做一些基础应该辅助平时的工作，所以对帮助没有很深入的阅读。可否帮忙实现以下的功能。
关于客户管理部分设计以下窗口
客户汇总
客户详情
联系人详情
客户联系记录
需要实现的功能如下：
1、通过客户汇总窗口可以看到所有客户的清单，双击表格当前行，可以弹出当前行的 客户详情 窗口
2、客户详情 窗口 点击 增加联系人按钮 可以弹出 联系人详情 窗口输入，弹出联系人详情 窗口时希望 客户编号 可以从 客户详情 继承过来
3、客户详情 窗口 点击 增加联系记录按钮 可以弹出 客户联系记录 窗口输入，弹出客户联系记录 窗口是 希望 客户编号 可以从 客户详情 继承过来
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:备份.rar |
[此贴子已经被作者于2017/2/6 10:28:54编辑过]
-- 发布时间：2017/2/6 10:30:00
--
此主题相关图片如下：客户汇总窗口.jpg
此主题相关图片如下：客户详情窗口.jpg
此主题相关图片如下：联系人详情窗口.jpg
-- 发布时间：2017/2/6 10:30:00
--
此主题相关图片如下：客户联系记录窗口.jpg
-- 发布时间：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
-- 发布时间：2017/2/6 13:07:00
--
此主题相关图片如下：客户汇总窗口.jpg
老师，在 客户汇总 窗口双击TABLE副本，弹出的窗口不是当前行的内容，这个是什么问题呢，该怎么处理？
-- 发布时间：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