| 
                このようなイメージでしょうか? 勘違いしていたらすみません。
 
          'データグリッドビューにセットする         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
 
  |