主题：求助

此主题相关图片如下：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

多谢，这个要新增一条明细呀，还有更好的办法否

多谢，但这样是不行的，还是会报错