主题：word报表为什么不安顺序排列

我在父表“分组”里设计了一个窗口，增加了一个按钮，按钮的单击事件代码：

Dim  drs As List(of DataRow) = DataTables("分组").Select("分组 = #"  & Date.Today & "#")
If drs.Count > 0 Then   
    Dim tm As String  =  ProjectPath &  "Attachments\表A.doc"
    Dim fl As String =  ProjectPath &  "Reports\表A.doc"
    Dim wrt As New WordReport(Tables("分组"),tm,fl)
     For Each  dr As  DataRow In drs
        wrt.BuildOne(dr)
     Next
     wrt.Show()
End If

要按子表“表A”里“分组”列相应组别生成报表，烦请给修改套用一下这个代码，因为我还看不太懂

改成

Dim  drs As List(of DataRow) = DataTables("分组").Select("", "_Sortkey") '红色代码改成你的排序列
If drs.Count > 0 Then   
    Dim tm As String  =  ProjectPath &  "Attachments\表A.doc"
    Dim fl As String =  ProjectPath &  "Reports\表A.doc"
    Dim wrt As New WordReport(Tables("分组"),tm,fl)
     For Each  dr As  DataRow In drs
        wrt.BuildOne(dr)
     Next
     wrt.Show()
End If