以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111593)
--  作者：发财
--  发布时间：2017/12/25 17:56:00
--  目录树
Dim i As Integer
i = 0
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If i<= Tables("凭证.凭证明细").Rows.Count - 1 Then
            \'s = s & "," & nd.Text
            Tables("凭证.凭证明细").Rows(i)("摘要代码")=　？？？？？
            Tables("凭证.凭证明细").Rows(i)("摘要") = nd.Text
            i = i + 1
        Else
            Dim nr As Row = Tables("凭证.凭证明细").AddNew()
            nr("日期") = Forms("凭证").Controls("DateTimePicker2").value
            Tables("凭证.凭证明细").Rows(i)("摘要") = nd.Text
            i = i + 1
        End If
    End If
Next
e.Form.Close()
上述代码中？？？？？应如何填写？
--  作者：有点甜
--  发布时间：2017/12/25 17:58:00
--  

这个意思？具体问题截图或实例说明

 

Tables("凭证.凭证明细").Rows(i)("摘要代码")=nd.name

 

--------------

 

Tables("凭证.凭证明细").Rows(i)("摘要代码")=nd.datarow("代码")
--  作者：发财
--  发布时间：2017/12/25 18:05:00
--  
    Dim fdr As DataRow = Tables("科目表").DataTable.find("_Identify = " & e.node.tag)
CurrentTable.current("摘要代码") = fdr("代码")
请问老师，如何修改插入上述代码？
--  作者：有点甜
--  发布时间：2017/12/25 18:16:00
--  

Dim fdr As DataRow = Tables("科目表").DataTable.find("_Identify = " & nd.tag)

Tables("凭证.凭证明细").Rows(i)("摘要代码")=fdr("代码")

[此贴子已经被作者于2017/12/25 18:15:59编辑过]
--  作者：发财
--  发布时间：2017/12/26 9:37:00
--  
多谢！