If e.Node.Level = 1 Then '如果单击的是第二层节点
Dim tr As Row
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
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("勘验人1_姓名") = dr("姓名")
tr("勘验人1_单位") = dr("工作单位")
tr("勘验人1_职务") = dr("职务")
e.Form.DropDownBox.Value = tr("勘验人1_姓名") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()
End If
问题:当前窗口中选择”勘验人2“时,会将两个刷成一样的,怎么才能其互不干扰?需要修改兰色代码?怎么改?