Foxtable(狐表)用户栏目专家坐堂 → [求助]目录树字典涉及到关联表后。。。


  共有1567人关注过本帖树形打印复制链接

主题:[求助]目录树字典涉及到关联表后。。。

帅哥哟,离线,有人找我吗?
36792209
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
[求助]目录树字典涉及到关联表后。。。  发帖心情 Post By:2018/4/16 21:31:00 [只看该作者]

问题情况写在了附件里,实在搞不懂了。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb








。。。。研究好了。。- -!!!莫名其妙就开窍了。
[此贴子已经被作者于2018/4/16 21:38:17编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/16 21:43:00 [只看该作者]

你代码都写死了给第三列和第四列赋值,当然就是这种效果了。

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim nm As String
    If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
        tr = e.Form.DropTable.Current '获取此表的当前行
        nm = e.Form.DropTable.Name
    Else '如果下拉窗口是通过DropdownBox打开
        nm  = e.Form.DropDownBox.BindingField '获取绑定的字段
        nm = nm.Split(".")(0) '获取绑定的表名
        tr = Tables(nm).Current '获取此表的当前行
    End If
    If nm = "表A"
        tr("第二列") = dr("第四列")
    Else
        tr("第三列") = dr("第四列")
    End If
    
    e.Form.DropDownBox.Value = dr("第三列") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2018/4/16 21:46:00 [只看该作者]

哈哈,谢谢老师,自己已经研究出来了,多做了个窗口针对表B完美解决,虽然多了个窗口和代码图片点击可在新窗口打开查看

 回到顶部