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