在maintablechanged中，想定义“考察”表中 【姓名】列的下拉树
'生成考察表中的姓名栏下拉树
If MainTable.Name = "考察" Then
Dim dr As DataRow '定义当前行------------------------------》后加
Dim tb1 As New DropTreeBuilder
tb1.SourceTable = DataTables("得piao") '指定目录树表
tb1.TreeCols = "姓名" '指定用于生成目录树的列
tb1.TreeFilter="[编号]='" & dr("推荐编号") & "'" '筛选得piao表的[编号]=当前行.推荐编号--------》后加
tb1.SourceCols = "姓名|职务" '指定数据来源列
tb1.ReceiveCols = "姓名|职务" '指定数据接收列
Tables("考察").Cols("姓名").DropTree = tb1.Build()
End If
tb1.TreeFilter="[编号]='" & dr("推荐编号") & "'" 这句错了？另外，如果想增加两个条件，比如再加上 "[是否]=0“， 怎么拼接法？
加好友 
发短信
Post By：2015/7/24 11:44:00 [只看该作者]
