Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口中的下拉目录树


  共有3133人关注过本帖平板打印复制链接

主题:[求助]窗口中的下拉目录树

美女呀,离线,留言给我吧!
猩猩与土豆
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:79 积分:624 威望:0 精华:0 注册:2015/8/6 10:20:00
[求助]窗口中的下拉目录树  发帖心情 Post By:2015/8/19 11:11:00 [只看该作者]

1
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

如图,我在此窗口的供应商编号旁边的Combobox控件中以客户信息表的公司编号列生成了一个下拉目录树,窗口中间那一排的公司信息绑定了客户信息表,右边那一排绑定了关联表“客户信息表.联系人表”。
我想要的效果是当我点击新增订单时,窗口中所有信息清空,选择供应商编号时,相应的公司信息和联系人信息能自动跳转出来,现在供应商编号一栏的下拉目录树已设置好,但是当我新增订单时,公司信息和联系人信息一直固定一家公司的信息,更换供应商编号不能跳转显示我选择的那家公司的信息


图片点击可在新窗口打开查看此主题相关图片如下:客户信息表.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:联系人表.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:采购订单表.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编辑过]

 回到顶部
总数 14 1 2 下一页