谢谢有点甜老师，问题是解决了，但是我在工料单价子表工料明细中，出入库子表库明细中，都需要用同样的方法调用工料单价，还是按这个代码，这两个就不行了
static pid As
Double = -1
If e.Col.name = "工料一类"
Then
If pid <> e.Row("项目id")
Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("工料单价") '指定目录树表
tb.TreeFilter="项目id='"
& e.Row("项目id")
& "'"
tb.TreeCols = "工料一类|工料二类|工料名称"
'指定用于生成目录树的列
tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价"
'指定数据来源列
tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价"
'指定数据接收列
e.Col.DropTree = tb.Build()
pid = e.Row("项目id")
End If
End If
加好友 
发短信
Post By：2018/2/12 11:31:00 [只看该作者]
