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

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()