vb crystalreport - .NET技术 / VB.NET
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not IsDate(mtxtDate.Text) Then
' Call MouseDefault()
' Exit Sub
'End If
Dim ReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Call ReportDoc.Load(gRptPath & "56f.rpt")
ReportDoc.RecordSelectionFormula = "{TempTax56b.TempKey} = '" & RP2(TempKey) & "'"
ReportDoc.SetParameterValue("TaxYear", Mid(mtxtDate.Text, 7, 4))
ClearTempTabelSQL = "DELETE from TempTax56b WHERE TempKey = '" & RP(TempKey) & "'"
Dim F As New Reports.frmReportViewer(ReportDoc, GL("@DSL1108"), ClearTempTabelSQL)
F.Show()
MouseDefault()
End Sub
End Class
通过一个按钮调用crystalreport
但是 里面那个Call ReportDoc.Load(gRptPath & "56f.rpt")
grptpath是路径 但是怎么知道路径是上面？
是什么
打错
顶呀 大家
代码里似乎没有gRptPath 这个变量的定义。
可以用 application.startuppath，表示你的程序所在的目录（winform程序可用）。
比rpt文件�
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
