Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树设计时提示的错误


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

主题：目录树设计时提示的错误
帅哥哟，离线，有人找我吗？
地瓜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		目录树设计时提示的错误  发帖心情 Post By：2017/10/23 11:43:00 [只看该作者]

在“采购预算”表中，但选择好单位后会提示如图的错误

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

图片点击可在新窗口打开查看此主题相关图片如下：1提示的错误.png
图片点击可在新窗口打开查看

在“采购品目”列选择好品目后，也会提示错误，请问这是什么原因引起的，谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2提示的窗体.png
图片点击可在新窗口打开查看

项目文件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:综合办公管理平台.rar






[此贴子已经被作者于2017/10/23 11:43:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/23 13:45:00 [只看该作者]

对应函数

 

Dim e As  Object = Args(0)
If e.Node.Level = 2 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("tblcgy").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("cgdw") = dr("单位")
    tr("dwlb") = dr("单位类别")
    e.Form.DropDownBox.Value = tr("单位") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/23 13:45:00 [只看该作者]

 其余报错，参考2楼方法修改。

 回到顶部
帅哥哟，离线，有人找我吗？
地瓜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/10/23 14:57:00 [只看该作者]

我试过修改了，但是还是没有把该单位的单位类别自动填充出来，谢谢！
Dim e As  Object = Args(0)
If e.Node.Level = 2 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("tblcgy").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("cgdw") = dr("单位")
    tr("dwlb") = dr("单位类别")
    e.Form.DropDownBox.Value = tr("cgdw") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/23 15:14:00 [只看该作者]

这样写，提示什么，报什么错？
 
Dim e As  Object = Args(0)
If e.Node.Level = 2 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("tblcgy").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("cgdw") = dr("单位")
    tr("dwlb") = dr("单位类别")
    msgbox(dr("单位"))
    e.Form.DropDownBox.Value = tr("单位") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
地瓜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/10/23 20:00:00 [只看该作者]

是表错了，应该是Tables("tblcgys"),我修改好了，谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询