以下是引用chengjingliang在2017/12/8 16:03:00的发言:
出入库表的图木舒克项目,在子表库明细规格内,可以选只限于该种材料的规格,如果换个位置编写代码就显示所有材料的所有规格
If e.IsFocusCell AndAlso e.Col.name = "规格" Then
Dim tb As New DropTreeBuilder
If e.Row.IsNull("项目id") OrElse e.Row.IsNull("工料id") Then
tb.TreeFilter=""
Else
tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"
End If
tb.SourceTable = DataTables("规格明细") '指定目录树表
tb.TreeCols = "规格" '指定用于生成目录树的列
tb.SourceCols = "规格" '指定数据来源列
tb.ReceiveCols = "规格" '指定数据接收列
e.Col.DropTree = tb.Build()
End If