空白行が表示されてしまう。

解決


あおい  2012-10-27 22:46:25  No: 147930

VB2010+Windows7で開発しています。

エクセルデータをデータグリッドビューに表示するために、以下のプログラムを作成しました。

最初に10レコードをデータグリッドビューに表示させて、次に2レコードにデータを減らして表示させたところ、2レコードの後に8レコードの空白行が表示されてしまいます。

この空白行を表示させないで、2レコードだけを表示させるには、
どうすれば良いのでしょうか?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim conStr As New OleDb.OleDbConnectionStringBuilder()
conStr.Provider = "Microsoft.JET.OLEDB.4.0"
conStr.DataSource = Application.StartupPath & "\test.xls"
conStr("Extended Properties") = "Excel 8.0;HDR=yes;IMEX=1"

Dim sql As String = "SELECT * FROM [Sheet1$]"
Using da As New OleDb.OleDbDataAdapter(sql, conStr.ConnectionString)
da.Fill(ds, "Sheet1")
End Using
table = ds.Tables("Sheet1")

DataGridView1.DataSource = table

End Sub


あおい  2012-10-28 06:14:53  No: 147931

エクセルの方に原因がありそうなのでクローズします。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加