none
DataGridの書式設定がうまくいかない RRS feed

  • 質問

  • 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

    2006年8月2日 15:56

すべての返信