主题：目录数的多选录入

1、代码应该写在一个按钮上吧？也就是勾选多个节点以后，点击确定再添加行。

2、第一行填在当前行里，其余的addnew后填入。

3、做一个具体实例发上来测试。

请把数据库文件也发上来，才能测试。

实例我测试没问题。

请就实例说明测试步骤（分别在哪里输入什么），得到什么错误结果。

请在你给的实例那里说明，你给的实例没有数据啊。

就实例说明测试步骤（分别在哪里输入什么），得到什么错误结果。

请上传有数据的access数据库。然后说明测试步骤。

systemready = False
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim idx As Integer = 0
For Each nd As winform.treenode In trv.allnodes
    If nd.checked Then
        Dim dr As DataRow = nd.DataRow
        Dim r As Row
        If idx = 0 Then
            r = Tables("销售订单.销售订单明细").current
            e.Form.DropDownBox.Value = dr("商品编号")
        Else
            r = Tables("销售订单.销售订单明细").Addnew()
        End If
        r("商品编号")=dr("商品编号")
        r("规格")=dr("规格")
        r("物料编码")=dr("物料编码")
        idx += 1
    End If
Next
systemready = True
Tables("销售订单.销售订单明细").Refresh