以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关联表格通过窗口输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95811)

--  作者:davidwangdl
--  发布时间:2017/2/6 10:28:00
--  [求助]关联表格通过窗口输入
Foxtable的老师,我想用这个软件做一些基础应该辅助平时的工作,所以对帮助没有很深入的阅读。可否帮忙实现以下的功能。

关于客户管理部分设计以下窗口
客户汇总图片点击可在新窗口打开查看
客户详情
联系人详情
客户联系记录

需要实现的功能如下:

1、通过客户汇总窗口可以看到所有客户的清单,双击表格当前行,可以弹出当前行的 客户详情 窗口
2、客户详情 窗口 点击 增加联系人按钮 可以弹出 联系人详情 窗口输入,弹出联系人详情 窗口时希望 客户编号 可以从 客户详情 继承过来
3、客户详情 窗口 点击 增加联系记录按钮 可以弹出 客户联系记录 窗口输入,弹出客户联系记录 窗口是 希望 客户编号 可以从 客户详情 继承过来
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:备份.rar

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

--  作者:davidwangdl
--  发布时间:2017/2/6 10:30:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:客户汇总窗口.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:客户详情窗口.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:联系人详情窗口.jpg
图片点击可在新窗口打开查看


--  作者:davidwangdl
--  发布时间: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


--  作者:davidwangdl
--  发布时间: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