| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 561 人关注过本帖
标题:[求助]DataGridr的数据导出
只看楼主 加入收藏
maozhibin911
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2005-12-28
收藏
 问题点数:0 回复次数:4 
[求助]DataGridr的数据导出
请教各位大侠,我用的是Visual Studio.NET 2003 ,在VB里面怎么把DataGrid中的数据导出到一个EXcel中呢,
注:DataGrid 中的数据是通过ADO.NET编程得到的数据集,并已填充到DataGrid 中,
急,,,,,,,,,,
搜索更多相关主题的帖子: 数据 DataGridr 
2006-06-06 22:25
yinshi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-6-6
收藏
得分:0 
VB??我只知道C#怎么弄

痛苦~~编程难学~~编程痛苦
2006-06-07 11:02
maozhibin911
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2005-12-28
收藏
得分:0 

那你说说啊,,,,,


有的人追求幸福,所以努力。 有的人拥有幸福,所以放弃。
2006-06-07 16:44
shanshao
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-5-20
收藏
得分:0 

Public Sub EduceToExcel2(ByVal StrTabl As String, Optional ByVal TatalName As String = "", Optional ByVal CaptionName As String = "") '导出Excel
Dim App As New Excel.Application
Dim Ws As New Excel.Worksheet
Dim StrValue As String
Dim i, j, a As Integer
Ws = App.Workbooks.Add.Worksheets(1)
App.Visible = True
Try
Dim Trow As DataRow = dtset.Tables(StrTabl).NewRow
For i = 0 To dtset.Tables(StrTabl).Columns.Count - 1
Ws.Cells(1, i + 1) = dtset.Tables(StrTabl).Columns.Item(i).ColumnName
Next

i = 2
For a = 0 To dtset.Tables(StrTabl).Rows.Count - 1
For j = 0 To dtset.Tables(StrTabl).Columns.Count - 1
StrValue = dtset.Tables(StrTabl).Rows(a).Item(j)
Ws.Cells(i, j + 1) = StrValue
Next
i = i + 1
Next
Ws.Columns.AutoFit()
If TatalName <> "" Then Ws.PageSetup.CenterHeader = TatalName
If CaptionName <> "" Then App.Caption = CaptionName '工作薄标题
Ws.PageSetup.PrintGridlines = True
Ws.PageSetup.CenterHorizontally = True

Catch ex As Exception
MsgBox(ex.Message)
Finally
Dtread.Close()
End Try
End Sub

2006-06-10 21:21
wwqiang
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2006-5-1
收藏
得分:0 
2楼的,说说C#里面如何把数据导出阿,我也想知道呢?谢了

2006-06-11 20:29
快速回复:[求助]DataGridr的数据导出
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022665 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved