質問編集履歴
3
補足２（私なりの考察）を追加しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -439,3 +439,87 @@
|
|
|
439
439
|
|
|
440
440
|
|
|
441
441
|
要領を得ない長文での質問となり申し訳ございませんが、宜しくお願い致します。
|
|
442
|
+
|
|
443
|
+
|
|
444
|
+
|
|
445
|
+
|
|
446
|
+
|
|
447
|
+
### 補足２
|
|
448
|
+
|
|
449
|
+
皆様からの回答を元に再度上記「試したこと」に記載の部分を考えなおしてみました。
|
|
450
|
+
|
|
451
|
+
ソース記載の下記部分をLoop外で行い、
|
|
452
|
+
|
|
453
|
+
```
|
|
454
|
+
|
|
455
|
+
'DB 検索
|
|
456
|
+
|
|
457
|
+
strSQLE = ""
|
|
458
|
+
|
|
459
|
+
strSQLE = strSQLE & " SELECT コード , 名称 "
|
|
460
|
+
|
|
461
|
+
strSQLE = strSQLE & " FROM 氏名マスタ "
|
|
462
|
+
|
|
463
|
+
strSQLE = strSQLE & " ORDER BY 表示順 "
|
|
464
|
+
|
|
465
|
+
Set oraDsE = -----
|
|
466
|
+
|
|
467
|
+
```
|
|
468
|
+
|
|
469
|
+
Loop内では下記のプルダウン用Comboへの代入のみとしました。
|
|
470
|
+
|
|
471
|
+
```
|
|
472
|
+
|
|
473
|
+
'氏名プルダウンの中身生成
|
|
474
|
+
|
|
475
|
+
Do While Not oraDsE.Eof
|
|
476
|
+
|
|
477
|
+
If S_Name(i) = oraDsE("コード") Then
|
|
478
|
+
|
|
479
|
+
S_Name1_Combo = S_Name2_Combo & "<OPTION value='"&oraDsE("コード")&"' selected>"& oraDsE("名称") & "</OPTION>"
|
|
480
|
+
|
|
481
|
+
Else
|
|
482
|
+
|
|
483
|
+
S_Name1_Combo = S_Name2_Combo & "<OPTION value='"&oraDsE("コード")&"'>"& oraDsE("名称") & "</OPTION>"
|
|
484
|
+
|
|
485
|
+
End If
|
|
486
|
+
|
|
487
|
+
If S_Name(i) = oraDsE("コード") Then
|
|
488
|
+
|
|
489
|
+
S_Name2_Combo = S_Name2_Combo & "<OPTION value='"&oraDsE("コード")&"' selected>"& oraDsE("名称") & "</OPTION>"
|
|
490
|
+
|
|
491
|
+
Else
|
|
492
|
+
|
|
493
|
+
S_Name2_Combo = S_Name2_Combo & "<OPTION value='"&oraDsE("コード")&"'>"& oraDsE("名称") & "</OPTION>"
|
|
494
|
+
|
|
495
|
+
End If
|
|
496
|
+
|
|
497
|
+
oraDsE.dbMoveNext
|
|
498
|
+
|
|
499
|
+
Loop
|
|
500
|
+
|
|
501
|
+
```
|
|
502
|
+
|
|
503
|
+
|
|
504
|
+
|
|
505
|
+
このLoop内で読み込んだ際に最後のデータまで読み切ってしまっていた事で、2個目のプルダウンで値が入ってこなかったのではないかと思われます。
|
|
506
|
+
|
|
507
|
+
ものすごい初歩的な質問となりますが、
|
|
508
|
+
|
|
509
|
+
```
|
|
510
|
+
|
|
511
|
+
Do While Not oraDsE.Eof
|
|
512
|
+
|
|
513
|
+
|
|
514
|
+
|
|
515
|
+
oraDsE.dbMoveNext
|
|
516
|
+
|
|
517
|
+
Loop
|
|
518
|
+
|
|
519
|
+
```
|
|
520
|
+
|
|
521
|
+
上記の形で一度読み切ったDBデータは2回目から読みこまないのでしょうか・・・
|
|
522
|
+
|
|
523
|
+
2回目からも読めるのであれば、Loop内のDB検索をLoop外に出してプルダウン用ComboのみLoopで繰り替えすという対応策がとれるのですが。
|
|
524
|
+
|
|
525
|
+
お恥ずかしい内容で申し訳ありません。もし見当違いでしたらご指摘下さい（汗
|
2
タグ変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
1
タイトル変更
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
ボタンクリック
|
|
1
|
+
画面読込速度の改善ついて（ボタンクリックでのフォーム（TABLE）増機能追加に伴うDB検索が原因と考えています）
|
test
CHANGED
|
File without changes
|