1、ComboList 可以像复选组合框那样显示复选框框吗?
Select Case e.Col.Name
Case "必填内容"
If e.IsFocusCell Then '如果是焦点所在单元格
Dim lst As String = ""
Dim dt As DataTable = DataTables(e.Row("表名"))
For Each dc As DataCol In dt.DataCols
lst &= "|" & dc.name
Next
lst = lst.trimstart("|")
e.Col.ComboList = String.join("|", lst.toarray)
End If
End Select
2、如果不行,用下拉窗口代替,生成目录树的代码该怎么修改?
Dim r As Row = Tables("必填内容表").Current
If r("表名") <> "" Then
Dim dt As DataTable = DataTables(r("表名"))
Dim lst As String = ""
For Each dc As DataCol In dt.DataCols
lst &= "|" & dc.name
Next
lst = lst.trimstart("|")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, lst)
End If
[此贴子已经被作者于2023/5/9 17:55:20编辑过]