以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树追加了新项,Datarow出现问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79281)
--  作者：sunsenfeng
--  发布时间：2015/12/28 14:16:00
--  [求助]目录树追加了新项,Datarow出现问题

Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
If tr.SelectedNode.DataRow("批准")<>"" Then -------> 代码出现问题: 未将对象引用设置到对象的实例。

    Messagebox.Show("已经批准,无需重复操作!")
Else
    If user.group="总经理" Then
        tr.SelectedNode.DataRow("批准")=User.Name
        tr.SelectedNode.DataRow("批准日期")=Date.Today
    Else
        Messagebox.Show("总经理才有权限批准,不能进行超越权限的操作!")
    End If
End If

 

请老师们指点,问题出在哪里?
--  作者：大红袍
--  发布时间：2015/12/28 14:43:00
--  

你新增项的时候，datarow是不会帮你绑定的。你可以不操作。

 

If tr.SelectedNode.DataRow Is Nothing Then

    return

End If
--  作者：大红袍
--  发布时间：2015/12/28 14:44:00
--  

或者是，你新增的时候记录一下主键

 

节点.tag = 新增行("_Identify")

 

然后，如是tr.SelectedNode.DataRow Is Nothing的情况，就根据tag去查找那行数据。
--  作者：sunsenfeng
--  发布时间：2015/12/29 8:05:00
--  
谢谢大红袍老师
主要就是追加了新项,目录树就和表不对应了吧?就不能用e.selectednode.datarow了.
我的想法是重新加载以下目录树,提前保存一下全路径.但我想知道,让这一项再次展开
的最佳方法是什么?
--  作者：Hyphen
--  发布时间：2015/12/29 8:45:00
--  
只能按 全路径逐项 展开
--  作者：大红袍
--  发布时间：2015/12/29 9:12:00
--  

没必要重新生成一次。

 

你新增的时候记录一下主键

 

节点.tag = 新增行("_Identify")

 

然后，如是tr.SelectedNode.DataRow Is Nothing的情况，就根据tag去查找那行数据。
--  作者：sunsenfeng
--  发布时间：2015/12/29 9:21:00
--  
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("类别编码", "类别名称")

大红袍老师,以上为目录树生成,能根据这个给个具体的例子吗?
节点.tag = 新增行("_Identify") 没有用过,不太明白
--  作者：大红袍
--  发布时间：2015/12/29 9:40:00
--  

Dim nr As Row = Tables("表A").AddNew

Dim nd As WinForm.TreeNode = tr.Nodes.Add("12345")

 

nd.tag = nr("_Identify")
--  作者：sunsenfeng
--  发布时间：2015/12/29 9:46:00
--  
谢谢老师