If MainTable.Name = "仓库流水表.入库表" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("即时库存") '指定目录树表
tb.TreeCols = "物料名称|规格型号|厂家" '指定用于生成目录树的列
tb.SourceCols = "物料名称|规格型号|单价|单位|厂家|归属项目|采购类别|物料代码" '指定数据来源列
tb.ReceiveCols = "物料名称|规格型号|单价|单位|厂家|归属项目|采购类别|物料代码" '指定数据接收列
Tables("仓库流水表.入库表").Cols("物料名称").DropTree = tb.Build()
End If
此代码放在项目事件代码MainTableChanged
为啥窗口中的关联表不能执行代码
加好友 
发短信
Post By：2015/11/4 22:24:00 [只看该作者]
