dim nms() as string = {"第一列","第三列"}For c As integer = 0 To nms.length - 1
rt.Cells(0,c).Text = tbl.Cols(nms(c)).Name
rt.Cols(c).Width = tbl.Cols(nms(c)).PrintWidth
For r As integer = 0 To Rows.Count -1
rt.Cells(r + 1, c).Text = rows(r)(tbl.Cols(nms(c)).Name)
Next
Next
-----------------------
Dim Regions As List(Of String()) = tbl.DataTable.GetValues("地区|客户名称")
doc.Pagesetting.LandScape = True
For Each Region As String() In Regions
……
rx.Text = "地区: " & Region(0)
……
Rows = tbl.Datatable.Select("[地区] = '" & Region（0） & "' and 客户名称='" & Region（1） & "'")
加好友 
发短信
Post By：2020/2/20 10:28:00 [显示全部帖子]
