老师，下面是导出导入按钮代码，想要，当窗口名单元格空时复制窗口名1单元格的数据到窗口名中。谢谢老师帮忙。
DataTables("窗口控件管理").DeleteFor("")
Dim trv As WinForm.TreeView = Forms("授权表").controls("TreeView3")
Dim dr As DataRow
For Each n As WinForm.TreeNode In trv.AllNodes
If n.Nodes.Count = 0 Then
Dim arr() As String = n.FullPath.Split("\")
If arr.length = 4 Then
dr = DataTables("窗口控件管理").AddNew
dr("窗口归类") = arr(0)
dr("窗口名") = arr(1)
dr("窗口名1") = arr(2)
Dim btn() = arr(3).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(3)
End If
ElseIf arr.length = 3
dr = DataTables("窗口控件管理").AddNew
dr("窗口归类") = arr(0)
dr("窗口名") = Nothing
dr("窗口名1") = arr(1)
Dim btn() = arr(2).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(2)
End If
ElseIf arr.length = 2
dr = DataTables("窗口控件管理").AddNew
dr("窗口名1") = arr(0)
Dim btn() = arr(1).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(1)
End If
End If
End If
Next
加好友 
发短信
Post By：2019/11/2 11:32:00 [只看该作者]
