老师如下图,我的需求是:
1、选中几行的税piao号码,在table中自动新增几行,并录入相应数据
下面代码只能选择一个数据,如何调整?谢谢!
If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[piao据类别] = '" & Vals(0) & "' And [类别代码] = '" & Vals(1) & "' And [税piao号码] = '" & Vals(2) & "'"
Dim dr As DataRow = DataTables("税piao登记").Find(Filter)
Dim r As Row = Tables("开piao明细").Current
r("piao据类别") = dr("piao据类别")
r("税piao号码") = dr("税piao号码")
此主题相关图片如下:3336.png