主题：[求助]按钮代码赋值

请具体说明操作步骤，以及你需要达到的效果。

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