質問編集履歴

5

現在使用している関数の追加

2018/08/28 15:14

投稿

zakky79
zakky79

スコア23

test CHANGED
File without changes
test CHANGED
@@ -35,3 +35,93 @@
35
35
  これだと1986/昭和61年がプルダウンメニューの初期値になります。
36
36
 
37
37
  中身がベタ打ちではなく、Accessのデータマスタの情報だった場合、どう記述すればよいのか…が分からないです。
38
+
39
+
40
+
41
+ 現在使っているコンボボックスを構成する関数
42
+
43
+ ```ASP.NET
44
+
45
+ Sub Combo(strItem,strTable,strSDate,intChange,ByRef obj)
46
+
47
+ Dim strBuf,strBufA
48
+
49
+ Dim objSet
50
+
51
+ Dim strSQL
52
+
53
+
54
+
55
+ strItem = Trim(strItem)
56
+
57
+ strTable = Trim(strTable)
58
+
59
+ strSDate = Trim(strSDate)
60
+
61
+ intChange = Trim(intChange)
62
+
63
+
64
+
65
+ if intChange Then
66
+
67
+ obj.Response.Write("<SELECT NAME=""" &strItem& """SIZE=1 onChange="selChange(this.option[this.selectedIndex].value);"">")
68
+
69
+ Else
70
+
71
+ obj.Response.Write("<SELECT NAME=""" &strItem& """ SIZE=1>")
72
+
73
+
74
+
75
+ sreSQL="Select A,B"
76
+
77
+ strSQL=strSQL & "From データマスタ"
78
+
79
+ strSQL=strSQL & "order By 表示順
80
+
81
+
82
+
83
+ obj.Response.Write("<OPTION VALUE="""" ")
84
+
85
+ if pstrItem15="" Then
86
+
87
+ obj.Response.Write("SELECTED")
88
+
89
+ End if
90
+
91
+ obj.Response.Write("></OPTION>)
92
+
93
+
94
+
95
+ if pstrItem15=strBufA Then
96
+
97
+ obj.Response.Write("<OPTION VALUE= "&strBufA & "SELECTED>"& strBuf & "</OPTION>")
98
+
99
+ Else
100
+
101
+ obj.Response.Write("<OPTION VALUE="&strBufA & ">" & strBuf & "</OPTION>")
102
+
103
+ End if
104
+
105
+ objSet.MoveNext()
106
+
107
+ objSet.Close() : obj.Set=Nothing
108
+
109
+ obj.Response.Write("</SELECT>")
110
+
111
+ End Sub
112
+
113
+ ```
114
+
115
+ この関数を以下で呼び出しています。
116
+
117
+ ```ASP.NET
118
+
119
+ Call Combo("Item15","データマスタ","2003/11/11",True,obj)
120
+
121
+ ```
122
+
123
+ 初期値を設定しているのはSELECTEDというのは調べて分かったのですが、DbCur.Fields(1).Valueをどう設定すればよいのかがわかりません。
124
+
125
+
126
+
127
+ 宜しくお願いいたします。

4

2018/08/28 15:14

投稿

zakky79
zakky79

スコア23

test CHANGED
File without changes
test CHANGED
@@ -11,3 +11,27 @@
11
11
  で、更新したい行の各コンボボックスに表示したい値は取れるのですが、それをどうやって使えばいいのかが分かりません。引数で追加してみたり、コンボボックスの関数内で色々試してみましたがうまくいきませんでした。
12
12
 
13
13
  アドバイス、ご指導のほどよろしくお願い致します。
14
+
15
+
16
+
17
+ 分かりづらくてすいません。
18
+
19
+ コンボボックスというよりプルダウンメニューの方が正しいのですかね?
20
+
21
+ ```ASP.NET
22
+
23
+ <select name="XXX">
24
+
25
+ <option value=“59”>1984/昭和59年
26
+
27
+ <option value=“60”>1985/昭和60年
28
+
29
+ <option value=“61” selected>1986/昭和61年
30
+
31
+ </select>
32
+
33
+ ```
34
+
35
+ これだと1986/昭和61年がプルダウンメニューの初期値になります。
36
+
37
+ 中身がベタ打ちではなく、Accessのデータマスタの情報だった場合、どう記述すればよいのか…が分からないです。

3

2018/08/28 05:24

投稿

zakky79
zakky79

スコア23

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,6 @@
1
- コンボボックスで選択たものをAccessへ登録するというものを作りした。登録された情報の一覧画面があり、更新ボタンを押すと、押した更新ボタンの行の情報を更新できるようにしたいのですが、更新時の入力画面コンボボックスの中身空白のままで、登録された情報が入力されたまま状態にしたいです。
1
+ 現在Web画面を作成ており、Accessのデータテーブルの一覧表示してい。登録ボタンを押すと、登録画面へ移り、コンボボックスが3つありそれぞれ選択し、登録します。登録された情報は一覧画面に追加されます。もう1つ、更新ボタンあり、それは登録された情報を変更するためものです。
2
+
3
+ ここからが分からないところなんですが、画面は入力画面と同じですが、元々登録されていた情報をコンボボックスの初期値にしたいのですがら現在は空白のままです。
2
4
 
3
5
  ```asp
4
6
 
@@ -6,6 +8,6 @@
6
8
 
7
9
  ```
8
10
 
9
- で、更新したい行の各コンボボックスに表示したい値は取れるのですが、それをどうやって使えばいいのかが分かりません。引数に入れるべきなのか、コンボボックスを作っている関数の中設定するべなのか…
11
+ で、更新したい行の各コンボボックスに表示したい値は取れるのですが、それをどうやって使えばいいのかが分かりません。引数で追加してみたり、コンボボックス関数色々試してみましたがうまくいませんでした。
10
12
 
11
13
  アドバイス、ご指導のほどよろしくお願い致します。

2

2018/08/28 03:14

投稿

zakky79
zakky79

スコア23

test CHANGED
File without changes
test CHANGED
File without changes

1

2018/08/28 02:35

投稿

zakky79
zakky79

スコア23

test CHANGED
@@ -1 +1 @@
1
- コンボボックスの初期値
1
+ コンボボックスの初期値の設定
test CHANGED
File without changes