没有表，我去掉q_Grid0和Grid0定义的这段代码测试没有问题，你那边试试
Dim q_Grid0 As new QｕeryBuilder
q_Grid0.TableNa me ="QB_金翔明细表"
q_Grid0.Connect i
q_Grid0.Sele ctS tring ="Sｅle ct * From {金翔明细表} Wh ｅre [单据号码] ='" & Tables("金翔主表").current("单据号码") & "'"
......
Grid0.Style.GridLines.All = New Prt.LineDef("0.2",Color.From KnownColor(35)) '所有网格线
Grid0.Style.GridLines.Vert = New Prt.LineDef("0.2",Color.Fro mKnownColor(35)) '所有网格线
Grid0.Style.GridLines.Horz = New Prt.LineDef("0.2",Color.Fro mKnownColor(35)) '所有网格线
If DataTables.Cont ains("QB_金翔明细表") Then
DataTablｅs.Unload("QB_金翔明细表")
End If
特别是上面红色这段去掉试试，会不会是打印的时候没有数据源了
加好友 
发短信
Post By：2016/11/30 14:34:00 [显示全部帖子]
