我的VB上已打上了SP5 使用VB的datareport 控件打印报表
我下载的一个程序运行没有错误,
我把它照搬过来就报错了
Case "printone"
If Toolbar1.Buttons(1).Caption = "所有月份" Then
If sql1 <> "" Then
DE1.rsCommand2.Open "select * from " & sql1 & " order by 所属工资月份,员工编号"
Else
DE1.rsCommand2.Open "select * from 工资表 order by 所属工资月份,员工编号"
End If
Else
If sql1 <> "" Then
DE1.rsCommand2.Open "select * from " & sql1 & " and 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
Else
DE1.rsCommand2.Open "select * from 工资表 where 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
End If
End If
DR1_gzt.Orientation = rptOrientPortrait
DR1_gzt.Show 1
DR1_gzt为dataReport 控件
请问问题是出在那里了.
我实在是找不见
我下载的一个程序运行没有错误,
我把它照搬过来就报错了
Case "printone"
If Toolbar1.Buttons(1).Caption = "所有月份" Then
If sql1 <> "" Then
DE1.rsCommand2.Open "select * from " & sql1 & " order by 所属工资月份,员工编号"
Else
DE1.rsCommand2.Open "select * from 工资表 order by 所属工资月份,员工编号"
End If
Else
If sql1 <> "" Then
DE1.rsCommand2.Open "select * from " & sql1 & " and 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
Else
DE1.rsCommand2.Open "select * from 工资表 where 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
End If
End If
DR1_gzt.Orientation = rptOrientPortrait
DR1_gzt.Show 1
DR1_gzt为dataReport 控件
请问问题是出在那里了.
我实在是找不见
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货