1
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:无标题.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-8/20158199384472507.png)
如图,我在此窗口的供应商编号旁边的Combobox控件中以客户信息表的公司编号列生成了一个下拉目录树,窗口中间那一排的公司信息绑定了客户信息表,右边那一排绑定了关联表“客户信息表.联系人表”。
我想要的效果是当我点击新增订单时,窗口中所有信息清空,选择供应商编号时,相应的公司信息和联系人信息能自动跳转出来,现在供应商编号一栏的下拉目录树已设置好,但是当我新增订单时,公司信息和联系人信息一直固定一家公司的信息,更换供应商编号不能跳转显示我选择的那家公司的信息
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:客户信息表.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-8/201581911205217149.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:联系人表.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-8/201581911211076085.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:采购订单表.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-8/201581911212688720.png)
以下是TreeView(目录树)的NodeMouseClick事件的代码:
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("供应商编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()
End If
到底错哪了??
[此贴子已经被作者于2015/8/19 11:27:20编辑过]