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

解決

あおい 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

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