问题描述
ImportsSystemImportsSystem.DataImportsSystem.Data.SqlClientPublicClassForm1InheritsSystem.Windows.Forms.Form#Region"Windows窗体设计器生成的代码"PublicSubNew()MyBase.New()'该调用是Windows窗体设计器所必需的。InitializeComponent()'在InitializeComponent()调用之后添加任何初始化EndSub'窗体重写dispose以清理组件列表。ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)IfdisposingThenIfNot(componentsIsNothing)Thencomponents.Dispose()EndIfEndIfMyBase.Dispose(disposing)EndSub'Windows窗体设计器所必需的PrivatecomponentsAsSystem.ComponentModel.IContainer'注意:以下过程是Windows窗体设计器所必需的'可以使用Windows窗体设计器修改此过程。'不要使用代码编辑器修改它。FriendWithEventsButton1AsSystem.Windows.Forms.ButtonFriendWithEventsDataGrid1AsSystem.Windows.Forms.DataGrid<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()Me.Button1=NewSystem.Windows.Forms.ButtonMe.DataGrid1=NewSystem.Windows.Forms.DataGridCType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).BeginInit()Me.SuspendLayout()''Button1'Me.Button1.Location=NewSystem.Drawing.Point(88,112)Me.Button1.Name="Button1"Me.Button1.Size=NewSystem.Drawing.Size(160,56)Me.Button1.TabIndex=0Me.Button1.Text="Button1"''DataGrid1'Me.DataGrid1.DataMember=""Me.DataGrid1.HeaderForeColor=System.Drawing.SystemColors.ControlTextMe.DataGrid1.Location=NewSystem.Drawing.Point(0,176)Me.DataGrid1.Name="DataGrid1"Me.DataGrid1.Size=NewSystem.Drawing.Size(384,168)Me.DataGrid1.TabIndex=1''Form1'Me.AutoScaleBaseSize=NewSystem.Drawing.Size(6,14)Me.ClientSize=NewSystem.Drawing.Size(392,349)Me.Controls.Add(Me.DataGrid1)Me.Controls.Add(Me.Button1)Me.Name="Form1"Me.Text="Form1"CType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).EndInit()Me.ResumeLayout(False)EndSub#EndRegionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimoExcelAsNewExcel.ApplicationDimobookAsExcel.WorkbookDimoSheetAsExcel.WorksheetDimDataArray(2000,2000)AsIntegerobook=oExcel.Workbooks.Open("c:1.xls")oSheet=obook.Worksheets(1)oSheet.Name="ok"DimmyAdapterAsNewSqlClient.SqlDataAdapterDimmydatasetAsNewDataSetmyAdapter.Fill(mydataset,"list")DataGrid1.DataSource=mydataset.Tables("list")DimiAsIntegerDimiCountAsIntegeriCount=mydataset.Tables("list").Rows.CountFori=0ToiCount-1DataArray(i,0)=DataGrid1.Item(i,0)NextoSheet.Range("b1").Resize(100,1).Value=DataArrayobook.Save()oExcel.Quit()EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimsqlAsStringDimdsAsNewDataSetDimdaAsSqlDataAdapterDimstrstudentnameAsStringDimstrstudentpassAsStringDimsqlcnAsSqlConnectionsqlcn=NewSqlConnectionsqlcn.ConnectionString="workstationid=SG;packetsize=4096;integratedsecurity=SSPI;datasource=SG;persis"&_"tsecurityinfo=False;initialcatalog=生物医学工程系信息管理系统"sqlcn.Open()DimsqAsString="select*from班级信息"da=NewSqlDataAdapter(sq,sqlcn)da.Fill(ds)DataGrid1.DataSource=ds.Tables(0)EndSubEndClass
这个代码是不是把DATAGIRD里面的东东到出到C盘下的1.xls里面吗？？怎么修改下就行啦！郁闷呀
解决方案
本帖最后由 lzmtw 于 2008-04-26 00:04:09 编辑
解决方案二：
在你那报什么错，那行报错
解决方案三：
郁闷2天。。
解决方案四：
怎么郁闷了？
解决方案五：
乱来的代码
解决方案六：
我不会呀！！能帮我下么？怎么把datagrid里面的表导出来？
解决方案七：
估计是语法错的很郁闷
解决方案八：
这个功能都做了两天了没一点成果！不郁闷行么？？哎
解决方案九：
你把错误信息给出来看下啊...这里热心人很多的..
解决方案十：
DimmyAdapterAsNewSqlClient.SqlDataAdapterDimmydatasetAsNewDataSetmyAdapter.Fill(mydataset,"list")看上去没加载任何数据.
解决方案十一：
DimmyAdapterAsNewSqlClient.SqlDataAdapterDimmydatasetAsNewDataSetmyAdapter.Fill(mydataset,"list")DataGrid1.DataSource=mydataset.Tables("list")DimiAsIntegerDimiCountAsIntegeriCount=mydataset.Tables("list").Rows.Count上面的都不要.改为DimiAsIntegerDimiCountAsIntegeriCount=Ctype(DataGrid1.DataSource,DataTable).Rows.Count
解决方案十二：
哎,你是照搬哪.程序的运行机理(过程)你要分析一下才行.
解决方案十三：
我也想知道，正在找這方面的資料~~~~~
解决方案十四：
该回复于2008-05-09 11:10:23被版主删除