|
このようなイメージでしょうか? 勘違いしていたらすみません。
'データグリッドビューにセットする dgvMain.Rows.Clear() For i = 0 To dSet.Tables("SQLTable").Rows.Count - 1 With dgvMain .Rows.Add() .Rows(i).Cells("休日日付").Value = dSet.Tables("SQLTable").Rows(i)("休日日付") .Rows(i).Cells("法定区分").Value = dSet.Tables("SQLTable").Rows(i)("法定区分").ToString .Rows(i).Cells("備考").Value = dSet.Tables("SQLTable").Rows(i)("備考") End With Next
|