我用下面代码来设置输入条件的，保存没有问题，但设置的条件不起作用，如何修改？请指教，谢谢！Tables("补偿计算表.安置明细表").AddNew()
If Tables("补偿计算表.安置明细表").Current("建筑物类别") = "安置房" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("安置房规格表") '指定目录树表
tb.TreeCols = "小区名称|楼号|房号" '指定用于生成目录树的列
tb.SourceCols = "小区名称|楼号|房号|安置房面积|阁楼面积" '指定数据来源列
tb.ReceiveCols = "小区名称|楼号|房号|安置主房面积|阁楼面积" '指定数据接收列
Tables("补偿计算表.安置明细表").Cols("小区名称").DropTree = tb.Build()
Else
If Tables("补偿计算表.安置明细表").Current("建筑物类别") = "储物间" Then
Dim tb1 As New DropTreeBuilder
tb1.SourceTable = DataTables("储物间规格表") '指定目录树表
tb1.TreeCols = "小区名称|楼号" '指定用于生成目录树的列
tb1.SourceCols = "小区名称|楼号|层次|方向|序号|储物间面积|储物间实测面积" '指定数据来源列
tb1.ReceiveCols = "小区名称|楼号|层次|方向|序号|储物间面积|储物间实测面积" '指定数据接收列
Tables("补偿计算表.安置明细表").Cols("小区名称").DropTree = tb1.Build()
End If
End If
加好友 
发短信
Post By：2020/9/13 18:13:00 [只看该作者]
