If e.RecordGrid Is Nothing Then '如果不是在记录窗口输入数据
e.Cancel = True '则取消输入
Else
If e.IsFocusCell Then
If e.Col.name = "项目类别" AndAlso e.Row("收付") = 1 Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("基础类别") '指定目录树表
tb.TreeCols = "{类别归属}" '指定用于生成目录树的列,用大括号括起来
tb.SourceCols = "类别名称" ' 字符型,指定数据来源列
tb.ReceiveCols = "项目类别" '指定数据接收列
tb.TreeFilter = "[级别] > 0 And SubString([类别归属],1,6) = '收费项目类别'"
tb.PathSeparator = "\" '指定路径分割符号
e.Col.DropTree = tb.Build()
End If
End If
End If
在记录窗口 操作下拉目录树后,系统菜单 全黑,不报错,但是软件死机,只能结束进程