Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.level = 1 AndAlso nd.Checked Then
For Each a As WinForm.TreeNode In nd.Nodes
If a.Checked Then
Dim r As Row = Tables("产品表").AddNew
' r("品种") = nd.Text
r("品名") = a.Text
End If
Next
Exit For
End If
If nd.level = 2 AndAlso nd.Checked Then
For Each a2 As WinForm.TreeNode In nd.Nodes
If a2.Checked Then
Dim r2 As Row = Tables("产品表").AddNew
' r("品种") = nd.Text
r2("品名") = a.Text
r2("款式") = a2.Text
End If
Next
Exit For
End If
Next
增加一下级,上面代码报错,未知编译