出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5537] Re:配列
投稿者：ZOOさん 2005/12/19 9:35:09
配列も出来ました。
ありがとうございました。
でも、やっぱりIf文へ入ってくれません・・・（＞＜）
あと一歩なのに・・・。
教えてください。If文がおかしいのでしょうか？・・・m(__)m

Dim Array_1()
reDim Array_1(CInt(rs.recordcount))
Dim Array_2()
reDim Array_2(CInt(rs.recordcount))
For A = 0 To rs.RecordCount-1
Do While I <= rs.PageSize AND Not rs.EOF
Array_1(A) = rs("ABC")
Array_2(A) = rs("XYZ")
A = A + 1
rs.MoveNext
Loop
Next

For I = 1 To 62 Step 1
Response.Write "<TR>"
For N = 1 To 82 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'></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 ＹａｓＮｅｔ