If e.Node.Level = 2 Then '如果单击的是第三层节点
Dim tr As Row
Dim dr As DataRow = DataTables("功能分类目录树").find("功能分类代码 = '" & e.Node.Name & "'") ' 据节点名称查表
If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
tr = e.Form.DropTable.Current '获取此表的当前行
Else '如果下拉窗口是通过DropdownBox打开
Dim nm As String =e.Form.DropDownBox.BindingField '获取绑定的字段
nm = nm.Split(".")(0) '获取绑定的表名
tr = Tables(nm).Current '获取此表的当前行
End If
tr("功能分类_代码") = dr("功能分类代码")
tr("功能分类_类名") = dr("功能分类类名")
tr("功能分类_款名") = dr("功能分类款名")
tr("功能分类_项名") = dr("功能分类项名")
tr("功能分类_名称") = dr("功能分类名称")
e.Form.DropDownBox.Value = tr("功能分类代码")
e.Form.DropDownBox.CloseDropdown()
End If
上面代码是绑定状态的代码,如果DropDownBox控件不绑定表格,上面代码应该如何改?????