WithDataGridView1
.Columns.Clear()
.DataSource=q.ToList
'非表示
.Columns(0).Visible=False
'列幅
.Columns(2).Width=200
'見出し
.Columns(5).HeaderText=“調定年月”
'日付形式
.Columns(5).DefaultCellStyle.Format=“yyyy年MM月”
'金額
.Columns(6).DefaultCellStyle.Format=“#,##0”
'.Columns(13).DefaultCellStyle.Format=“c”
'右寄せ
.Columns(11).DefaultCellStyle.Alignment=DataGridViewContentAlignment.BottomRight
'列追加
.Columns.Add(“No”,“No”)
'番号セット
ForiAsInteger=0To.Rows.Count-1
IfNotString.IsNullOrEmpty(.Item(1,i).Value)Then
.Item(3,i).Value=i+1
Else
EndIf
Next
'.Columns(15).DefaultCellStyle.Alignment=DataGridViewContentAlignment.BottomRight
'.Columns(15).DefaultCellStyle.Format=“#,##0”
'.Columns(15).Width=70
EndWith