在录入窗口中有个“客户名称”的下拉窗口
If e.Node.Level = 1 Then '如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\")
Dim tr As Row = Tables("销售主表").Current
Dim dr As DataRow = DataTables("客户表").Find("客户地址 = '" & ps(0) & "' And 客户名称 = '" & ps(1) & "'")
If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
tr("客户名称") = dr("客户名称")
e.Form.DropDownBox.Value = tr("客户名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树
End If
现在是在查询窗口同意也用这个下拉窗口，问题是当选择“客户名称”的同时，改变了原表中的“客户名称”！
现请教如何共用下拉窗口，在查询窗口选择“客户名称”时，不会同时改变原来表中的“客户名称”！
加好友 
发短信
Post By：2013/6/9 22:51:00 [只看该作者]
