- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 新增行问 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43986)
-- 发布时间：2013/12/20 9:43:00
-- 新增行问
我的新增联系人菜单键代码为
MainTable = Tables("客户信息表")
Tables("客户信息表").AddNew()
Forms("新建客户").Show()
我的思路是新增联系人后下拉选择客户名称后相关的地址，电话都自动录入，
问题是我新增联系人时 系统已继承了客户表的客户信息 ，不能选择，，，如何保证新增联人时 客户名称列为空的，由用户下拉选择客户？
-- 发布时间：2013/12/20 9:44:00
--
上面原代码为
MainTable = Tables("联系人信息表")
Tables("联系人信息表").AddNew()
Forms("新建联系人").Show()
-- 发布时间：2013/12/20 9:46:00
--
上例子,除非你设置了默认值,否则怎么会自己继承
-- 发布时间：2013/12/20 10:14:00
--
会不会是下面代码有问题 在联系人信息表中的DataColChanged
\'*****************************在录入项目编号后继承项目跟踪表相关项**************************************
If e.DataCol.Name = "客户编号" Then
If e.NewValue Is Nothing Then
\'e.DataRow("项目名称") = Nothing
e.DataRow("所属客户名称") = Nothing
e.DataRow("详细地址") = Nothing
e.DataRow("固定电话") = Nothing
e.DataRow("传真") = Nothing
Else
Dim dr As DataRow
dr = DataTables("客户信息表").Find("[编号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("所属客户名称") = dr("客户名称")
e.DataRow("详细地址")= dr("详细地址") \'dr为基础表的列
e.DataRow("固定电话")= dr("固定电话") \'dr为基础表的列
e.DataRow("传真")= dr("传真") \'dr为基础表的列
End If
End If
End If
*********************
由于新增联系人时，没有找到关联的客户编号
-- 发布时间：2013/12/20 10:18:00
--
请上个例子.
-- 发布时间：2013/12/20 10:26:00
--
例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题例子.foxdb |
-- 发布时间：2013/12/20 10:29:00
--
开发者密码?
-- 发布时间：2013/12/20 10:44:00
--
开发者密码:r
-- 发布时间：2013/12/20 10:46:00
--
没有数据源,打不开.