主题：[求助]代码简化？

For j As Integer = 0 To djs.length - 1

    Dim xk  As String = xks(j)

    Dim dj As String = djs(j)

    Dim tn As String = tjnj &"级"& xk &"考号名册"

    DataTables(tn).DataRows.Clear()

    Dim f As New Filler

    f.SourceTable = DataTables("成绩库")

    f.DataTable = DataTables(tn)

    f.Filter = "([组合] Like '%" & dj & "%') And 年级 = '" & tjnj & "'"

    f.Fill()

    Tables(tn).SetHeaderRowHeight(60) '表标题行的行高

    Tables(tn).DefaultRowHeight = 24 '设置默认的行高

    For Each liem1 As String In liem1s

        Tables(tn).Cols(liem1 ).TextAlign = TextAlignEnum.Center

    Next

    For Each liem2 As String In liem2s

        Tables(tn).Cols(liem2 ).TextAlign = TextAlignEnum.Center

    Next

    For Each liem4 As String In liem4s

        Tables(tn).Cols(liem4 ).TextAlign = TextAlignEnum.Center

        Tables(tn).Cols(dj & liem4).TextAlign = TextAlignEnum.Center

    Next

    Tables(tn).SetColVisibleWidth("单位|60|单位代码|35|部别|50|年级|35|组合|50|组合代码|35|班|26|期|26|编号|80|姓名|60|考号|80|"& dj &"|45|" & dj & "排序|40|" & dj & "考场号|70|" & dj & "座位号|45|" & dj & "序号|45|班级名称|55|班级代码|55")

    Tables(tn).Sort = "单位代码," & dj & "考场号," & dj & "座位号," & dj & "序号"

Next