If e.Node.Level = 1 Then \'如果单击的是第二层节点
Dim tr As Row = Tables("DXJ").Current
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
tr("测项1A") = dr("测项")
tr("测项1B") =dr("测项") & "__" & dr("测项具体")
e.Form.DropDownBox.Value = tr("测项1B") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()
End If
窗口afterload
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("测项表","测项|测项具体")