以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  分组打印 列控制  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161342)

--  作者：有点蓝 --  发布时间：2021/3/14 20:25:00 --   Dim Cols1() As String = {"来源列一","来源列二","来源列三"}     Rows = tbl.DataTable.Select("[区域] = \'" & Region & "\'")     For c As Integer = 0 To Cols1.length - 1         rt.Cells(0,c).Text = Cols1(c)         rt.Cols(c).Width = tbl.Cols(Cols1(c)).PrintWidth         For r As Integer = 0 To Rows.Count -1              rt.Cells(r + 1, c).Text = rows(r)(Cols1(c))         Next     Next