- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 档案引用的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55738)
-- 发布时间：2014/8/22 11:00:00
-- 档案引用的问题
老师，我在档案表增加了档案，在录入表里找不到档案啊，昨天都好好的可以，今天又不行了哦，
比如有个项目信息表，增加了项目A，在合同表里要引用这个项目A，在合同表里找不到这个项目+
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("xmxxb") \'指定目录树表
tb.TreeCols = "xmlb|xmmc" \'指定用于生成目录树的列
tb.SourceCols = "xmlb|xmbm|xmmc|xmgs|分项名称|分项概算" \'指定数据来源列
tb.ReceiveCols = "xmlb|xmbm|xmmc|xmgs|分项名称|分项概算" \'指定数据接收列
Tables("htb").Cols("xmlb").DropTree = tb.Build()
这是写在项目事件里Maintablechanged里的代码
同时在表事件datablecolchanged里的代码是：
If e.DataCol.Name = "XMBM" Then \'发生变化的是项目编码列
\'在项目信息表找出该项目编码
Dim dr As DataRow
dr = DataTables("XMXXB").Find("XMBM = \'" & e.DataRow("XMBM") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("XMMC")= dr("XMMC")
e.DataRow("XMGS")= dr("XMGS")
e.DataRow("分项名称")= dr("分项名称")
e.DataRow("分项概算")= dr("分项概算")
End If
End If
有点急，请老师帮助一下，谢谢
-- 发布时间：2014/8/22 11:04:00
--
代码肯定是没有错的，如果找不到，就是你XMXXB里面没有该合同编号的行。
-- 发布时间：2014/8/22 11:04:00
--
调试一下,是不是没有找到DR
有空格或者什么的.
具体请上例子
-- 发布时间：2014/8/22 11:05:00
--
我上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工程项目管理台账.table |
-- 发布时间：2014/8/22 11:07:00
--
例子中合同信息表要引用项目信息表里的档案
-- 发布时间：2014/8/22 11:08:00
--
在那个表?
-- 发布时间：2014/8/22 11:09:00
--
项目信息表增加了档案，在合同信息表里找不到，不能及时更新
-- 发布时间：2014/8/22 11:10:00
--
测试可以引用，输入编码以后，对应的值，就引用过来了啊。
-- 发布时间：2014/8/22 11:11:00
--
合同信息表的“合同类别”列是目录树。用户望城1，密码1
-- 发布时间：2014/8/22 11:13:00
--
测试根本没问题啊