VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/07/02(Wed) 20:16 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ファイル内の件数をカウントする方法 |
> Dim A_COUNT As Integer
Dim B_COUNT As Integer
Dim C_COUNT As Integer
も必要でしょう。
> Select Case CASE_KUBUN
> Case A
> A_COUNT = A_COUNT + 1
> P_LOG = " Aデータ :" & A_COUNT & "件"
>
> Case B
> B_COUNT = B_COUNT + 1
> P_LOG = " Bデータ :" & B_COUNT & "件"
>
> Case Else
> C_COUNT =C_COUNT + 1
> P_LOG = " Cデータ :" & C_COUNT & "件"
> End Select
これでは P_LOG が上書きさせてしまうのではありませんか？
Select Case CASE_KUBUN
Case A
A_COUNT = A_COUNT + 1
Case B
B_COUNT = B_COUNT + 1
Case Else
C_COUNT =C_COUNT + 1
End Select
表示する時は下記を最後だけで良く、 Select Case CASE_KUBUNにて
コードを書く必要は無いと思いますが。
P_LOG_a = " Aデータ :" & A_COUNT & "件"
P_LOG_b = " Bデータ :" & B_COUNT & "件"
P_LOG_c = " Cデータ :" & C_COUNT & "件"
．．．とかとして３種類作成する必要があるのでは？
A_COUNT = A_COUNT + 1 とかは合計を集計している訳で
この時点で P_LOG_a = " Aデータ :" & A_COUNT & "件" は
不要と思います。
表示は下記や Label1 〜 Label3 等に表示すれば良いでしょう。
Debug.Print P_log_a
Debug.Print P_log_b
Debug.Print P_log_c
下記は予め宣言が必要になります。
Dim P_LOG_a As String
Dim P_LOG_b As String
Dim P_LOG_c As String
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）