以下是引用chengjingliang在2018/2/12 15:37:00的发言:
第二个好像有问题,显示空表或只显示一种材料的规格
'库明细表规格列目录树主表绑定工料ID
static pid1 As Double = -1
If e.Col.name = "规格" Then
If pid1 <> e.Row("项目id") Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("规格明细") '指定目录树表
tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"
tb.TreeCols = "规格" '指定用于生成目录树的列
tb.SourceCols = "规格" '指定数据来源列
tb.ReceiveCols = "规格" '指定数据接收列
e.Col.DropTree = tb.Build()
pid1 = e.Row("项目id")
End If
End If
是不是红色部分写错了
tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"
此主题相关图片如下:3.jpg
[此贴子已经被作者于2018/2/12 17:05:05编辑过]