- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130614)
-- 发布时间：2019/1/27 0:58:00
-- 求助
此主题相关图片如下：12.png
一进入该窗体，默认的的是“显示全部”，然后点 新增 报错。如果选择了其它商品类别则正常录入，老师，这个怎么处理呀
AfterLoad 代码如下：
Tables("商品明细表").AddNew
Tables("商品明细表").AllowEdit=True
If Forms("商品信息").opened Then
Dim trv As WinForm.TreeView = Forms("商品信息").controls("treeview1")
If trv.SelectedNode IsNot Nothing Then
Dim nd = trv.SelectedNode
If nd.Level = 0 Then
Dim tr As Row = Tables("商品明细表").Current
Dim dr As DataRow = nd.DataRow \'获取生成此节点的DataRow
tr("商品类别") = dr("商品类别")
tr("类别编号") = dr("编号")
e.form.controls("商品类别").text = dr("商品类别")
End If
End If
End If
-- 发布时间：2019/1/27 1:14:00
--
AfterLoad 代码里面为什么要写 Tables("商品明细表").AddNew ? 我不明白
-- 发布时间：2019/1/27 1:53:00
--
多谢，这个要新增一条明细呀，还有更好的办法否
-- 发布时间：2019/1/27 7:45:00
--
If Forms("商品信息").opened Then
Dim trv As WinForm.TreeView = Forms("商品信息").controls("treeview1")
If trv.SelectedNode IsNot Nothing Then
Dim nd = trv.SelectedNode
If nd.Level = 0 Then
Dim tr As Row = Tables("商品明细表").Current
Dim dr As DataRow = nd.DataRow \'获取生成此节点的DataRow
tr("商品类别") = dr("商品类别")
tr("类别编号") = dr("编号")
e.form.controls("商品类别").text = dr("商品类别")
End If
End If
End If
Tables("商品明细表").AddNew
Tables("商品明细表").AllowEdit=True
-- 发布时间：2019/1/27 11:05:00
--
多谢，但这样是不行的，还是会报错
-- 发布时间：2019/1/27 11:53:00
--
你这个代码有问题
Dim dr As DataRow = nd.DataRow \'获取生成此节点的DataRow
不能直接用datarow的，参考，用fullpath获取
http://www.foxtable.com/webhelp/scr/2690.htm