DataGridViewに入っている値に応じて表示を変更したい

Question

###DataGridViewに入っている値に応じて表示を変更したい
現在、DataGridViewのカラムに数字型の情報が入っています（具体的には0もしくは1）
これを、0ならば"0:登録済み"1ならば"1:未登録"
このようにDataGridViewにある実データは数値型だが表示はテキストを表示したい

###該当のソースコード
With dgvTokuiSaki
.DataSource = dt
.Columns(4).Visible = False
.Columns(3).Visible = False
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(1).Width = 80
.Columns(2).Width = 75

###補足情報(言語/FW/ツール等のバージョンなど)
Visual Studio 2013
Visual Basic

Answer 1

CellFormatting イベントを次のように書いて試してみてください。
Column1 は実際のカラム名に書き換えてください。

Private Sub dvgTokuisaki_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles dvgTokuisaki.CellFormatting
    Dim grid As DataGridView = CType(sender, DataGridView)
    If grid.Columns(e.ColumnIndex).Name = "Column1" AndAlso TypeOf e.Value Is Integer Then
        Dim value As Integer = CInt(e.Value)
        If value = 0 Then
            e.Value = "登録済み"
        Else If value = 1 Then
            e.Value = "未登録"
        Else
            e.Value = "不正な値"
        End If
        e.FormattingApplied = True
    End If
End Sub

Comments

[Zuishin]

C# で書いたものを VB に直していますが、実際に VB で動かしたわけではないので、もしかしたら文法的に間違ったところや直し忘れなどあるかもしれません。

[VB_Beginner]

わざわざのご回答ありがとうございます。
実装してみたのですがdataGridViewの中身はやはり整数値が表示されてしまいます。
データソースはaccessのmdbで数値型、0もしくは1のみが入っている状態です。
以前も似たようなソースコードを検索して見つけて実装してみたのですが望む動作が
得られませんでした。今回も0、１の整数値が表示されてしまいます。
また、状況が変わり次第、追記してゆこうと思いますありがとうございました。

[VB_Beginner]

AndAlso TypeOf e.Value Is Integer
を外したら動作いたしました！
ありがとうございました。

[Zuishin]

`TypeOf e.Value Is Integer` は、「そこに収められているデータの型が Integer ならば」という意味です。収められていたのが 0 ではなく "0" ならば外さなければなりません。
質問文には数値型と書いてありますが、実際には文字列など「数値に見えるもの」が入っている、または Integer ではなく Long などが入っているのではないでしょうか？

[VB_Beginner]

MS_Accessからデータを取得していて、そのコラムは「数値型」です。
記述なされている通りTypeOf e.ValueはIntegerだと私は思うのですが、MS_Accessには
longやintなどの型はなく、数値は数値型として収納されていると思っていました
(自動的にIntegerにキャストされる)。
今、Console.WriteLine(grid.Columns(e.ColumnIndex).ValueType)を追加して型を表示させてみたら
System.Byteと表示されましたので正しくは
AndAlso TypeOf e.Value Is System.Byte Then
となるのでしょうか。

[Zuishin]

アクセスの場合、数値型にも種類があり、バイト数が設定できたと思います。おそらく 1 バイトの数値型、つまり Byte 型だったのでしょう。

[VB_Beginner]

勉強不足でした、正しい型を見極めないといけませんね。
ご親切にありがとうございます。