比如像下图，刚开始从下拉目录树中选择皮埃尔这家公司时还是好的，公司信息和联系人信息也自动跳转
此主题相关图片如下：2.png
而更换选择另一家公司时，公司信息和联系人信息全是空白，如下图：
此主题相关图片如下：1.png
然后客户信息表（也就是公司信息的表）和联系人表的这家公司在窗口中的信息也被清空，如下图：
此主题相关图片如下：3.png
这是下拉目录树的代码：
If e.Node.Level = 2 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("供应商编号") = dr("公司编号")
e.Form.DropDownBox.Value = tr("供应商编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
Tables("客户信息表").Position = Tables("客户信息表").findRow(dr)
e.Form.DropDownBox.CloseDropdown()
End If
请问是哪里有问题啊？？
加好友 
发短信
Post By：2015/8/19 11:11:00 [显示全部帖子]
