老师，我在档案表增加了档案，在录入表里找不到档案啊，昨天都好好的可以，今天又不行了哦，
比如有个项目信息表，增加了项目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
有点急，请老师帮助一下，谢谢
加好友 
发短信
Post By：2014/8/22 11:00:00 [只看该作者]
