以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表关联表 日期排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142544)
--  作者：yifan3429
--  发布时间：2019/10/30 13:11:00
--  专业报表关联表 日期排序
 rt.Cells(0,0).Text = "申请日期"
    rt.Cells(0,1).Text = "凭证类别"
    rt.Cells(0,2).Text = "摘要"
    rt.Cells(0,3).Text = "收入"
    rt.Cells(0,4).Text = "支出"
    rt.Cells(0,5).Text = "备注"
    rt.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.DeepSkyBlue)
    rt.rows(0).Style.Borders.Bottom = New prt.LineDef(0.5,Color.DeepSkyBlue)
    With Tables("凭证往来账户.凭证明细")
        For r As Integer = 0 To .Rows.Count - 1 \'遍历关联表每一行
            rt.Cells(r+1,0).Text = .rows(r)("申请日期")，这个日期列怎么排序呢 
            rt.Cells(r+1,1).Text = .rows(r)("凭证类别")
            rt.Cells(r+1,2).Text = .rows(r)("摘要")
            rt.Cells(r+1,3).Text = .rows(r)("收入")
            rt.Cells(r+1,4).Text = .rows(r)("支出")
            rt.Cells(r+1,5).Text = .rows(r)("备注")
        Next
    End With
--  作者：有点蓝
--  发布时间：2019/10/30 13:46:00
--  
Tables("凭证往来账户.凭证明细").sort = "申请日期"
With Tables("凭证往来账户.凭证明细")
        For r As Integer = 0 To .Rows.Count - 1 \'遍历关联表每一行
……