动态目录树列表,在PrepareEdit中 If e.IsFocusCell Then
If e.Col.Name = "供应商" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("广宣物料信息") '指定目录树表
'tb.TreeFilter = "供应商='" & e.Row("供应商") & "'"
tb.TreeCols = "供应商|材料类别|材料名称|规格" '指定用于生成目录树的列
tb.SourceCols = "供应商|编号|材料类别|材料名称|规格|单位|计价方式|单价" '指定数据来源列
tb.ReceiveCols = "供应商|材料编号|材料类别|材料名称|规格|单位|计价方式|单价|制作物尺寸_长|制作物尺寸_宽|金额" '指定数据接收列
Tables("广宣物料明细表").Cols("供应商").DropTree = tb.Build()
End If
End If
鼠标点击单元格可以弹出目录树,但是光标不离开该单元格没有办法点选其他按钮进行操作,请问老师如何解决这个问题?谢谢