カンマ編集の仕方

雀吉さん 2004-08-19 02:08:16 No: 115731

WinXP: VB.NET 2003

ＤＢから取得した数値をカンマ編集して
グリッドやテキストボックスに格納したいのですが
どうしたらいいでしょうか？
テキストボックスの方はプロパティで設定できる
らしいのですが。

お願いします。

雀吉さん 2004-08-20 01:27:13 No: 115732

すみません、レスがなかったので
自分なりにいろいろ調べました。

テキストボックスの方は自分で解決できたのですが、
グリッドの方がうまくいきません。
使用しているのは、C1FlexGrid です。

            With flxKayosanList
                For i = 1 To .Rows.Count() - 1
                    .Item(i, "BUDGET_SUM") = Format(CDbl(.Item(i, "BUDGET_SUM")), "##,##0")
                    Me.flxKayosanList.GetDataDisplay(i, "BUDGET_SUM")
                Next
            End With

FormatNumberメソッドも試したのですが、小数点以下が付くだけで
カンマ編集はされません。
どうしたらいいでしょうか。

環境 WinXP:VB.NET 2003

あいうえお 2004-09-01 01:26:28 No: 115733

conma関数とokaneのラベルやテキストのchangeイベントで出来ます

Public Conma As Variant

Conma = Format(Okane.Caption, "###,###,###,###,###,###,###,###")
Okane.Caption = Conma