主题：科目编码编码中科目类别的用户自定义

老师好，烦您看一下，修改的编码，执行有错误，劳烦您帮我改改，多谢。

科目目录树递归中数组的自定义问题

教材中实例“科目类别”是数组:Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}

而实际工作中是经常变化的，有的公司是 {"全部","资产","负债","权益","生产成本","收入"","成本"。。。。}
}

我的构造是做了一个数据表（科目类别）来反映编码名称列内容“科目类型”，如下图：

 
此主题相关图片如下：科目类别.jpg

将教材中实例Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}

更换为下列代码：

Dim KMLX As new List(of String)
KMLX= DataTables("科目类别").GetValues("编码名称")
Dim rts() As String =KMLX.ToArray()

出现如下错误

此主题相关图片如下：错误.jpg

全部代码如下，

Dim tr As WinForm.TreeView = e.Form.Controls("会计科目.TV")
Dim kmlX As new List(of String)
kmlX= DataTables("科目类别").GetValues("编码名称")
Dim rts() As String =kmlX.ToArray()‘希望rts()引用数组KMLB
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
    tr.Nodes.Add(rt)
Next
Dim gz As String = DataTables("分类编码方案").Find("基础档案名称 = '会计科目'")("编码规则")
For Each dr As DataRow In dt.Select("","编码规则")
    If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
        Dim i As Integer = CInt(dr("编码规则").Substring(0,1))
        nd = tr.Nodes(i).Nodes.Add(dr("编码规则"),dr("编码规则") & " " & dr("编码名称"))
        Functions.Execute("AddChildren",nd,dt,gz)
    End If
Next
tr.ResumeRedraw()

老师 还是有错误 

此主题相关图片如下：错误.jpg

目录树的命令是下面的

是不是 有问题

Dim trv As WinForm.TreeView = e.Form.Controls("会计科目.TV")
If e.Node.Level = 0
    If  e.Node.Name = "全部" Then
        Tables("会计科目").Filter = ""
    Else
        Tables("会计科目").Filter =  "编码规则 Like '" & e.Node.Index & "%'"
    End If
Else
    Tables("会计科目").Filter = "编码规则 Like '" & e.Node.Name & "%'"
End If

顶一个

还是有错误提示

教材中实例“科目类别”是数组:Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}

而实际工作中是经常变化的，有的公司是 {"全部","资产","负债","权益","生产成本","收入"","成本"。。。。}
}

我的构造是做了一个数据表（科目类别）来反映编码名称列内容“科目类型”，如下图：

 
此主题相关图片如下：科目类别.jpg

将教材中实例Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}

更换为下列代码：

Dim KMLX As new List(of String)
KMLX= DataTables("科目类别").GetValues("编码名称")
Dim rts() As String =KMLX.ToArray()

出现如下错误

此主题相关图片如下：错误.jpg

全部代码如下，

Dim tr As WinForm.TreeView = e.Form.Controls("会计科目.TV")
Dim kmlX As new List(of String)
kmlX= DataTables("科目类别").GetValues("编码名称")
Dim rts() As String =kmlX.ToArray()‘希望rts()引用数组KMLB
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
    tr.Nodes.Add(rt)
Next
Dim gz As String = DataTables("分类编码方案").Find("基础档案名称 = '会计科目'")("编码规则")
For Each dr As DataRow In dt.Select("","编码规则")
    If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
        Dim i As Integer = CInt(dr("编码规则").Substring(0,1))
        nd = tr.Nodes(i).Nodes.Add(dr("编码规则"),dr("编码规则") & " " & dr("编码名称"))
        Functions.Execute("AddChildren",nd,dt,gz)
    End If
Next
tr.ResumeRedraw()