oo4oでMSFlexGridにNULL値を入れるには？ (ID:108190)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>ヘルプで『Formar 関数』について調べて見てください。
>左上に書いてある「関連項目」にて、詳しく解説されていますよ。(^_^;)

あ・・・(><；)気づきませんでした。申し訳ありません。
今度から気をつけて見るようにいたしますm(__)m
でも、説明が分かり易くてすごく良かったです(^^)
本当にありがとうございます!

>Date型の場合には、どのようにして表示させていますか？
以下のコードでデータをMSFlexGridに入れていたので、特に
Format関数などは使っておりませんでした。

'テーブル情報の表示
    With oraTable
        Do Until .EOF
            MSHFlexGrid1.TextMatrix(intRow, 0) = intRow
            For intColumn = 1 To intColMax
                MSHFlexGrid1.TextMatrix(intRow, intColumn) = _
                .Fields(intColumn - 1).Value
            Next intColumn
            intRow = intRow + 1
            .MoveNext
        Loop
    End With

>コントロールパネルの設定に応じた書式が使われますので、
>環境によって、違う書式で出力される事になります。
書式がコントロールパネルの設定による事をはじめて知りましたので
以下のコードに変更し、Nullも
>「"(空データ)"という文字列をセルに表示する」
という、魔界の仮面弁士さんの考えを使用させていただきました。

With oraTable
        Do Until .EOF
            MSHFlexGrid1.TextMatrix(intRow, 0) = intRow
            For intColumn = 1 To intColMax
                If IsNull(.Fields(intColumn - 1).Value) Then
                    MSHFlexGrid1.TextMatrix(intRow, intColumn) =
                     _ "(空です)"
                ElseIf IsDate(.Fields(intColumn - 1).Value) Then
                    MSHFlexGrid1.TextMatrix(intRow, intColumn) = _
                    Format(.Fields(intColumn - 1).Value, "yyyy/mm/dd")
                Else
                    MSHFlexGrid1.TextMatrix(intRow, intColumn) = _
                    .Fields(intColumn - 1).Value
                End If
            Next intColumn
            intRow = intRow + 1
            .MoveNext
        Loop
    End With

以上が解決したコードです。ありがとうございました<(__)>

←解決時は質問者本人がここをチェックしてください。

戻る