- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树设计时提示的错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108450)
-- 发布时间：2017/10/23 11:43:00
-- 目录树设计时提示的错误
在“采购预算”表中，但选择好单位后会提示如图的错误
此主题相关图片如下：1.png
此主题相关图片如下：1提示的错误.png
在“采购品目”列选择好品目后，也会提示错误，请问这是什么原因引起的，谢谢！
此主题相关图片如下：2.png
此主题相关图片如下：2提示的窗体.png
项目文件
[此贴子已经被作者于2017/10/23 11:43:27编辑过]
-- 发布时间：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
-- 发布时间：2017/10/23 13:45:00
--
其余报错，参考2楼方法修改。
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2017/10/23 20:00:00
--
是表错了，应该是Tables("tblcgys"),我修改好了，谢谢！