出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5526] 配列
投稿者：ZOOさん 2005/12/16 12:03:21
配列を使って、数値を保存して、
その数値を呼び出して、テーブルのセルに色をつけたいのですが、、
どうもうまくいきません。
色をつけるためのIf文に入っていきません。
すみませんが、誰か教えていただけないでしょうか？お願いします。
根本的に違っています？

For A = 0 To rs.RecordCount-1
Do While I <= rs.PageSize AND Not rs.EOF
Array_1(A) = rs("A")
Array_2(A) = rs("B")
Array_3(A) = rs("C")
A = A + 1
rs.MoveNext
Loop
Next

For I = 1 To 60 Step 1
Response.Write "<TR>"
For N = 1 To 80 Step 1

B = 0
Flag = 0

For B = 0 to rs.RecordCount-1
TATE = Array_1(B)
YOKO = Array_2(B)
If TATE = I AND YOKO = N Then
Response.Write "<TD width='5' height='5'><IMG src='../image/target.gif' width='5' height='5' border='0'></TD>"
Flag = 1
End If
COUNT = COUNT + 1
Next

If Flag = 0 Then
Response.Write "<TD width='5' height='5' bgcolor='#00ff00'>" & N & "</TD>"
End If

Next
Response.Write "</TR>"
Next
配列 　 ZOOさん [2005/12/16 12:03:21] [5526]
　 Re:配列 　 暇人さん [2005/12/16 14:39:27] [5527]
　 　 Re:配列 　 ZOOさん [2005/12/16 15:41:34] [5528]
　 　 　 Re:配列 　 Lightningさん [2005/12/16 17:12:38] [5529]
　 　 　 Re:配列 　 暇人さん [2005/12/16 18:07:39] [5532]
　 　 　 Re:配列 　 ビギナーズラックさん [2005/12/16 19:42:59] [5533]
　 　 　 　 Re:配列 　 ビギナーズラックさん [2005/12/16 19:46:09] [5534]
　 Re:配列 　 ZOOさん [2005/12/19 9:35:09] [5537]
　 　 Re:配列 　 Lightningさん [2005/12/19 10:21:36] [5539]
　 　 　 Re:配列 　 ZOOさん [2005/12/19 10:58:44] [5540]
　 　 　 　 Re:配列 　 Lightningさん [2005/12/19 18:00:52] [5546]
　 　 　 　 　 Re:配列 　 ZOOさん [2005/12/20 8:40:11] [5548]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ