主题：[求助]还是代码简化

Dim Values() As String = {"总分"}

Dim s1() As String = New String() {"总分"}

Dim dt As Table = Tables("成绩库")

Dim lm1s() As String = {"序号","部别","年级","科目"}

Dim lm2s() As String = {"参考人数","平均分","标准差"}

Dim dhs() As String = {"重点A","本科A","专科A"}

Dim lm3s() As String = {"平均分","标准差","平均分之和","标准差之和","目标","重点线","有效分"}

Dim tjnj As String = 2018

For Each Value As String In Values

    Dim dtb As New DataTableBuilder( value & tjnj &  "级有效分")

    For Each lm1 As String In lm1s

        dtb.AddDef( lm1 ,Gettype(String),8)

    Next

    For Each lm2 As String In lm2s

        dtb.AddDef( lm2 ,Gettype(Double))

    Next

    For Each lm3 As String In lm3s

        For Each dh As String In dhs

            For i As Integer = 1 To 7

                dtb.AddDef( dh & i ,Gettype(Double),"", dh & "_ "& lm3 &"")

            Next

        Next

    Next

    dtb.Build()

Next

执行代码报错：

此主题相关图片如下：报错.png

红色部分代码是下面代码的简化：

建表样式：

此主题相关图片如下：有效分样式.png

如何修改红色部分代码？请指教，谢谢！

Dim dtb As New DataTableBuilder("总分2018级有效分")

Dim lm1s() As String = {"序号","部别","年级","科目","参考人数","平均分","标准差"}

Dim dhs() As String = {"重点A","本科A","专科A"}

Dim lm3s() As String = {"平均分","标准差","平均分之和","标准差之和","目标","重点线","有效分"}

For Each dh As String In dhs

    For i As Integer = 0 To lm3s.length - 1

        dtb.AddDef( dh & (i+1) ,Gettype(Double),"", dh & "及以上_" & lm3s(i))

    Next

Next

dtb.Build()