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 ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
