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