[求助]打印的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

多一张空白,说明多循环了一次啊. 你排查一下就可以发现了. 看看你取得集合是否数量正确,多出了一次到底是什么东西.

是啊,我没排查到啊,

多打一张空白纸啊

多一张空白,说明多循环了一次,看看你取得集合是否数量正确,多出了一次到底是什么东西.!

我认为这是一个bug

请Bin老师验证

Dim cs As List(Of String)

cs = Tables("表A").DataTable.GetValues("第一列",Tables("表A").Filter)

Dim cc As Integer = cs.count

output.show(" "& cc &" ")

当第一列所有行没有空值时,数量正确

当有空行时,数量多1

回复14楼，空值也算是一个的。如果你不想要空值，你可以加以限制。

Datatables("表A").GetValues("第一列", "第一列 is not null")

非常感谢有点甜老师

请问我这里怎么写?

Dim cs As List(Of String)

cs = Tables("出库查询_出库副表").DataTable.GetValues("批签发","Tables("出库查询_出库副表").Filter)

这样写

Dim filter As String = iif(Tables("出库查询_出库副表").Filter > "", Tables("出库查询_出库副表").Filter & " and 批签发 is not null", Tables("出库查询_出库副表").Filter)

Dim cs As List(Of String) = Tables("出库查询_出库副表").DataTable.GetValues("批签发", filter)

有点甜老师,

您顺便把我例子中第二个问题:同行的批签发和通关单挨着打印的问题也给解决了吧,谢谢您

代码这样写，你试试

Dim tb As Table = Tables("出库查询_出库副表")

If tb.Current Is Nothing Then '如果表为空

MessageBox.Show("请按领取单位和出库时间查询!")

Else

Dim cnt As Integer = DataTables("出库").GetValues("领取单位",Tables("出库查询_出库副表").Filter).count '列出table 不同项列表

If Cnt >1 Then '如果不是同一领取单位

MessageBox.Show("请分领取单位打印!")

Else

Dim Customers As List(Of String())

Customers = Tables("出库查询_出库副表").DataTable.GetValues("批签发|通关单",Tables("出库查询_出库副表").Filter)

For Each Customer As String() In Customers

If Customer(0) > "" Then

Dim doc As New PrintDoc

Dim rm As New prt.RenderImage

rm.image = getimage("D:\用户目录\Documents\Scanned Documents\"& Customer(0) &".JPG")

rm.y = 10

rm.x = 10

rm.Width = "130%Parent" '设置尺寸为容器(页面)尺寸

rm.Height = "Auto" '高度由图片大小自动决定

rm.Style.ImageAlign.KeepAspectRatio = True '保持比例

doc.Body.Children.Add(rm) '将图片对象加入报表

Doc.Preview() '预览

'Doc.Print()

End If

If Customer(1) > "" Then

Dim doc2 As New PrintDoc

Dim rm2 As New prt.RenderImage

rm2.image = getimage("D:\用户目录\Documents\Scanned Documents\"& Customer(1) &".JPG")

rm2.y = 10

rm2.x = 10

rm2.Width = "130%Parent" '设置尺寸为容器(页面)尺寸

rm2.Height = "Auto" '高度由图片大小自动决定

rm2.Style.ImageAlign.KeepAspectRatio = True '保持比例

doc2.Body.Children.Add(rm2) '将图片对象加入报表

Doc2.Preview() '预览

End If

太感谢您了,甜老师

主题：[求助]打印的代码