填充不为空值的列名并打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从表A中选择有值的列，将列名填充到表B的C列（表B的其他列均空白）列名前加一个复选框，列名后加两个空格分隔或一个分隔符分隔。如下图：

表A：

此主题相关图片如下：微信截图_20240519115432.png

表B:

此主题相关图片如下：微信截图_20240519120216.png

打印表B的效果。

现在代码如下;

'页面设置

Dim doc As New PrintDoc '定义一个报表

Doc.PageSetting.LeftMargin = 15

Doc.PageSetting.BottomMargin = 15

Doc.PageSetting.TopMargin = 15

Doc.PageSetting.rightMargin = 15

Dim rx8 As prt.RenderText

'设置二级标题

rx8 = New prt.RenderText

rx8.Style.Font = New Font("宋体", 16)

rx8.Style.Spacing.Bottom = 3

Dim dr As String = Forms("mainform").controls("劳保发放企业名称").value

rx8.text = dr & vbcrlf & "劳动防护用品发放记录" '表标题显示企业名称

rx8.Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题水平居中

doc.Body.Children.Add(rx8)

Dim rt As New prt.RenderTable '定义一个新表格

rt.Rows.Count = 24 '设置总行数

rt.Height = 240 '设置表格的高度

rt.Cols(0).Width = 13 '设置列的宽度

rt.Cols(1).Width = 62

rt.Cols(2).Width = 10

rt.Cols(3).Width = 15

Dim ColNames As String() = New String(){"发放日期","劳动防护用品名称","数量","领取人签字"}

rt.Style.Font = New Font("仿宋", 13)

For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容

rt.Cells(0,c).Text = ColNames(c) '列名作为标题

rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中

rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.center '数据水平靠右

rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

rt.Style.Gridlines.All = New prt.Linedef(Color.black) '灰色网格线

rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米

rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '利用行组,将第一行设为表头.

doc.Body.Children.Add(rt) '将表格加入到报表

doc.Preview()

如何向表B的第二列填充表A不为空列的列名，不会写代码，请老师帮忙，谢谢！

主题：填充不为空值的列名并打印