主题：专业报表取数与实际顺序不一致

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter)
    For i As Integer = 0 To drs.Count-1
        rt.cells(i+1,0).text= drs(i)("账户户名")
        rt.cells(i+1,1).text= drs(i)("账户账号")
        rt.cells(i+1,2).text= drs(i)("账户卡号")
        rt.cells(i+1,3).text= drs(i)("开户行_简称")
        rt.Rows(i).Height = 10
    Next
    Doc.body.Children.Add(rt）

以上代码是专业报表中的一段代码，上述代码是想从账户明细中调取符合条件的账户并打印出来，但是上述代码打印出的顺序与账户明细中顺序不致，怎么修改能够让顺序一致呢？

 

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "_Sortkey")

把代码改成这个，打印出表就只有标题行了，不显示数据了

 

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "排序列")

Dim Filter As String
With e.Form.Controls("是否调取")
    If .Value IsNot Nothing Then
        Filter = "是否调取 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("开户银行简称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开户银行_简称 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Dim Doc As new PrintDoc()
    Dim rt As new prt.rendertable
    Dim rx As new prt.RenderText
    If e.Form.Controls("是否调取").text = "是" Then
        rx.style.Font = new font("宋体",16)
        rx.style.TextAlignHorz = prt.AlignHorzEnum.Center
        rx.Style.Spacing.Bottom = 3
        rx.text = "已调取的银行账户"
        Doc.body.Children.Add(rx)
    Else
        rx.style.Font = new font("宋体",16)
        rx.style.TextAlignHorz = prt.AlignHorzEnum.Center
        rx.Style.Spacing.Bottom = 3
        rx.text = "需要调取的银行账户"
        Doc.body.Children.Add(rx)
    End If
    doc.PageSetting.TopMargin = 15 '上边距25毫米
    doc.PageSetting.leftMargin = 10 '上边距25毫米
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '唯独第一列内容居中
    rt.style.TextAlignVert = prt.AlignVertEnum.Center
    rt.style.Font = new font("宋体",12)
    rt.style.GridLines.all = new prt.LineDef
    rt.Cols.Count = 4
    rt.Cols(0).Width = 40
    rt.Cols(1).Width = 80
    rt.Cols(2).Width = 80
    rt.Cols(3).Width = 40
    rt.cells(0,0).text="账户户名"
    rt.cells(0,1).text="银行账号"
    rt.cells(0,2).text="银行卡号"
    rt.cells(0,3).text="开户银行"
    rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All  '前四行作为表头
    Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter,"_Sortkey")
    For i As Integer = 0 To drs.Count-1
        rt.cells(i+1,0).text= drs(i)("账户户名")
        rt.cells(i+1,1).text= drs(i)("账户账号")
        rt.cells(i+1,2).text= drs(i)("账户卡号")
        rt.cells(i+1,3).text= drs(i)("开户行_简称")
        rt.Rows(i).Height = 10
    Next
    Doc.body.Children.Add(rt)
    rx = New prt.RenderText '设置文本对象的内容
    rx.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
    rx.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
    rx.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
    rx.Style.FontSize = 8 '字体大小为8磅
    Doc.Pagefooter = rx '作为页眉使用
   
    Doc.preview()
End If

上述代码是这个报表的全部代码

改成你自己的排序列啊，不然就写 _Identify

还是不行呀，我的排序列是序号，按序号也是，除了标题以下什么都没有了

哦，要这样写

 

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "", "序号")

 

还是不行呀