Ｐａｇｅ 567 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼indexとseekについて morik 04/3/22(月) 16:41 ─────────────────────────────────────── ■題名 ： indexとseekについて ■名前 ： morik ■日付 ： 04/3/22(月) 16:41 -------------------------------------------------------------------------
| いつもお世話になっています。 今回、indexとseek命令でご質問があります。 現在、"PrimaryCREDIT_MANAGE_NO"をindexキーとしてseek命令を行っているのですが、以下のプログラムの続きにさらに違うindexをキーとしてseekを行いたい場合は、どうすればよいのでしょうか？ どなたか対処法をご存知の方ご教授お願いします。 Do Until .EOF RsIO.Index = "PrimaryCREDIT_MANAGE_NO" RsIO.Seek "=", .Fields("KANRI_NO") If RsIO.NoMatch = True Then intBackFlg = 0 Else intBackFlg = 1 End If If intBackFlg = 1 Then RsOut.AddNew RsOut.Fields("ACCEPT_NO") = RsIO.Fields("ACCEPT_NO") RsOut.Fields("SHUKKA_DATE") = .Fields("CARD_RIYOUBI") RsOut.Update End If 'ここにまた違うindexでseek命令を行いたいのですが。 .MoveNext Loop End With |