DataGridの列の幅、タイトル、NullText表示などの設定が問題ないですが、書式設定(1000を¥1,000と表示させたい)がうまく行かなくてこまっております。何かが間違っているのでしょうか、ご指摘宜しくお願いいたいます。
下記は実際のソース:
Private Sub QueryMainDtl()
Dim i As Integer
' コード エディタは使用しないでください。
Dim dsMain As New DataSet()
dsMain.Clear()
dsMain = New DataSet("M2")
Dim tStyle As DataGridTableStyle
Dim cStyle(10) As DataGridTextBoxColumn
Dim das As OleDb.OleDbDataAdapter
Dim dCol As DataColumn
Dim strCmd As String
Try
中略
Catch ex As Exception
MessageBox.Show(ex.Message)
cn.Close()
Return
End Try
dgMainDtl.TableStyles.Clear()
tStyle = New DataGridTableStyle()
tStyle.MappingName = "M2"
dgMainDtl.TableStyles.Add(tStyle)
For i = 0 To 10
cStyle(i) = New DataGridTextBoxColumn()
tStyle.GridColumnStyles.Add(cStyle(i))
Next
i = 0
'列タイトルを作成する
cStyle(i).MappingName = "c2"
cStyle(i).HeaderText = "項目"
cStyle(i).Width = 130
i += 1
'列タイトルを作成する
cStyle(i).MappingName = "c3"
cStyle(i).HeaderText = "名称"
cStyle(i).Width = 130
cStyle(i).NullText = ""
i += 1
'列タイトルを作成する
cStyle(i).MappingName = "c4"
cStyle(i).Format = "c"
cStyle(i).HeaderText = "単価"
cStyle(i).Width = 50
dgMainDtl.DataSource = dsMain.Tables("M2")
'dgMainDtl.SetDataBinding(dsMain, "M2")
dgMainDtl.ReadOnly = True
dgMainDtl.AllowSorting = False
cn.Close()
End Sub