只能这样
Dim t As Table = Tables("打印")
t.StopRedraw
For Each r As Row In Tables("信息").GetCheckedRows
If r("数量")> 0 Then
For i As Integer = 1 To r("数量")
Dim r2 As Row = t.AddNew
r2("条码") = r("条码")
r2("名称") = r("名称")
r2("单位") = r("单位")
r2("售价") = r("售价")
Next
End If
Next
t.ResumeRedraw
如果生成数据只是为了打印,没有必要生成新数据,直接把数据输出报表还好