Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

¼±ÇóASP¡£NETC#¹ºÎï³µ´úÂë

×î½üÔÚ×ö¸öÍøÉÏÉ̳ǣ¬¹ºÎﳵģ¿é£¬Ã»ÓÐ×ö¹ý£¬Âé·³¸÷λ°ïæ˵Ï´óÖÂ˵ÏÂ˼·£¬ÄÜ·¢Ò»·ÝÔ´Âë¸üºÃ¡£Ð¡µÜÏÈл¹ý¸÷λÁË£»
QQ£º413763818£»
eamil:swebook@126.com
ÍøÉÏÒ»´ó¶Ñ£¡

www.51aspx.com

ȥϠ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ