VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/08/23(Sat) 23:51
投稿者： 赤ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re^2: 動的配列？

    With frmMain.msgMain
        For i = 1 To .Rows - 1
            If .TextMatrix(i, 30) = "" Or .TextMatrix(i, 31) = "" Then
                Num1(i) = 0
            ElseIf .TextMatrix(i, 30) <> "" And .TextMatrix(i, 31) <> "" Then
                Num1(i) = 1
            End If
            NumTotal1 = NumTotal1 + Num1(i)
            If .TextMatrix(i, 30) <> "" And .TextMatrix(i, 31) <> "" Then
                For j = .TextMatrix(i, 30) - 6 To .TextMatrix(i, 31) - 7
                    msgTimeTable.TextMatrix(j, 1) = NumTotal1
                Next
                msgTimeTable.TextMatrix(24, 1) = NumTotal1
            End If
        Next
    End With

だとうまくいかないのです。(i, 30)は出勤時間、(i, 31)は退勤時間です。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -