读书人

[]EXCEL导入到DataGridview有关问题

发布时间: 2012-12-15 15:16:03 作者: rapoo

[十万火急]EXCEL导入到DataGridview问题
要将EXCEL文件中数据导入到系统DataGridview—VG1)控件中
因为本身DataGridview本身就有用于查询显示,所以导入后还不能影响到查询
查了一些资料,写了段代码,导入到是能导入,也还没影响到其他的按钮。
但是导入的数据只有纯数字的~~其他的都显示为空,而且导入后在网格上添加上不是数字的数据还会报错。
请帮忙修改下~~~~
PS。因为列比较多,只弄出了前三行


Private Sub btn_EXCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EXCEL.Click

Dim Excel As String

Me.OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"

If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Excel = Me.OpenFileDialog1.FileName
Dim myDataset As New DataSet
Dim ExcelConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Excel & "';Extended Properties=Excel 8.0;"
Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT 0 as SEQ,'' as ID , * FROM [Sheet1$]", ExcelConnStr) '前2列,分别为选择和添加按钮后系统给的ID,导入的数据没
Me.Cursor = Cursors.WaitCursor
Try
myDataAdapter.Fill(myDataset)

myDataset.Tables(0).Columns(0).ColumnName = "SEQ"
myDataset.Tables(0).Columns(1).ColumnName = "ID"
myDataset.Tables(0).Columns(2).ColumnName = "Name"
'为避免EXCEL第一行标题可能出现的错别字和网格本身的设置,统一处理表名

DGV1.DataSource = myDataset.Tables(0)


Catch ex As Exception
Me.Cursor = Cursors.Default
Exit Sub
End Try
End If

End Sub

[解决办法]
DGV1.DataSource = myDataset.Tables(0)

你重新绑定了啊
[解决办法]
?????什么
引用:
DGV1.DataSource = myDataset.Tables(0)

你重新绑定了啊

[解决办法]
额~~~什么意思??? 那段代码我也有写上去
引用:
DGV1.DataSource = myDataset.Tables(0)

你重新绑定了啊

读书人网 >VB Dotnet

热点推荐