crystal report????
Private Sub PrintData(IndexStr As String, Optional PrintPreview As Boolean = False)
'根据传入的字符串做相应的打印任务
If IndexStr = "" Then
MsgBox "没有可供打印的内容。", vbInformation
Exit Sub
End If
Dim Counter As Long
CrystalReport1.DataFiles(0) = App.Path & "symdol.mdb"
Select Case IndexStr
Case "Pic3" '
CrystalReport1.ReportFileName = App.Path & "\printdata\" & "ds1.rpt"
For Counter = 0 To Me.txtEP.count - 1
CrystalReport1.Formulas(Counter) = LTrim(str(Counter)) + "=" + Chr(34) + Me.txtEP.Item(Counter).Text + Chr(34)
Next Counter
Case "Pic4" '通用报表
CrystalReport1.ReportFileName = App.Path & "\printdata\" & "ds2.rpt"
For Counter = 0 To Me.Text1.count - 1
CrystalReport1.Formulas(Counter) = LTrim(str(Counter)) + "=" + Chr(34) + Me.Text1.Item(Counter).Text + Chr(34)
Next Counter
End Select
CrystalReport1.WindowTitle = "打印预览" '标题
CrystalReport1.WindowState = crptMaximized
If PrintPreview = True Then
CrystalReport1.Destination = crptToWindow '打印印预览时用
CrystalReport1.Action = 1
Else
CrystalReport1.Destination = crptToPrinter '到打印机
CrystalReport1.Action = 1
End If
End Sub
运行是老是要我输入密码,我的数据库根本没在密码?????
问题点数：20、回复次数：3Top
1 楼fucool（小不点）回复于 2001-08-20 17:02:02 得分 0
??????????????Top
2 楼xlain（lain）回复于 2001-08-20 17:12:51 得分 10
没密码应该不会这样的啊，试加语句：
dim dbs as database
set dbs=dbengine.opendatabase(App.Path & "symdol.mdb",,";pwd=")
再CrystalReport1.DataFiles(0) = App.Path & "symdol.mdb"后加
CrystalReport1.UserName = ";pwd="
Top
3 楼songyangk（小草）回复于 2001-08-20 19:05:16 得分 10
在报表运行之前先把数据库打开一下。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
