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µÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......