VB·Òë³ÉC#
Imports Microsoft.Reporting.WinForms
Public Class fMicrosoftReport
Private colReportName As String '±¨±íÃû³Æ
Private ReportData As DataTable '±¨±íÊý¾Ý¼¯
Private colDataSetName As String 'Êý¾Ý¼¯Ãû³Æ
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource
''' <summary>
''' ±¨±íÃû³Æ
''' </summary>
Property ReportName() As String
Get
Return colReportName
End Get
Set(ByVal value As String)
colReportName = value
ReportViewer1.LocalReport.ReportEmbeddedResource = colReportName
End Set
End Property
''' <summary>
''' ±¨±íÊý¾Ý¼¯
''' </summary>
Public Property NewData() As DataTable
Get
Return ReportData
End Get
Set(ByVal value As DataTable)
ReportData = value
End Set
End Property
''' <summary>
''' Êý¾Ý¼¯Ãû³Æ
''' </summary>
Public Property DataSetName() As String
Get
Return colDataSetName
End Get
Set(ByVal val
Ïà¹ØÎÊ´ð£º
×î½üÔÚ×ö¸öÍøÉÏÉ̳ǣ¬¹ºÎﳵģ¿é£¬Ã»ÓÐ×ö¹ý£¬Âé·³¸÷λ°ïæ˵Ï´óÖÂ˵ÏÂ˼·£¬ÄÜ·¢Ò»·ÝÔ´Âë¸üºÃ¡£Ð¡µÜÏÈл¹ý¸÷λÁË£»
QQ£º413763818£»
eamil:swebook@126.com
ÍøÉÏÒ»´ó¶Ñ£¡
www.51aspx.com
ȥϠ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......