Dim i As Integer = 3
Dim idx As Integer = 1
Dim lst As List(Of String) = DataTables("类别字典").GetValues("材料类别", "", "排序号1")
Dim s1 As String() = {"一", "二", "三", "四", "4-1", "4-2", "4-3", "4-4", "五", "六", "七", "八", "九", "9-1", "9-2", "9-3", "9-4", "十"}
For k As Integer = 0 To lst.Count - 1 '第一个获取遍历类别的循环改为从字典表取值
Dim n As String = lst(k)
rt.Cells(i, 0).Text = idx
rt.Cells(i, 1).Text = s1(k)
rt.Cells(i, 2).Text = n
idx += 1
i += 1
Dim drs As List(Of DataRow) = DataTables("表A").Select("材料类别='" & n & "' and 材料名称 is not null", "排序号")
For j As Integer = 0 To drs.Count - 1
Dim dr As DataRow = drs(j)
rt.Cells(i + j, 0).Text = idx
rt.Cells(i + j, 1).Text = j + 1
rt.Cells(i + j, 2).Text = dr("材料名称")
rt.Cells(i + j, 3).Text = dr("材料形成日期").Year
rt.Cells(i + j, 4).Text = dr("材料形成日期").Month
rt.Cells(i + j, 5).Text = dr("材料形成日期").Day
rt.Cells(i + j, 6).Text = dr("份数")
rt.Cells(i + j, 7).Text = dr("页数")
rt.Cells(i + j, 8).Text = dr("备注")
idx += 1
Next
i += drs.Count
rt.Cells(i, 0).Text = idx
idx += 1
i += 1
Next