teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問【VB.NET】子フォームから親フォームのデータグリッドの操作について

編集履歴

質問編集履歴

4

修正

2017/05/15 10:06

投稿

f-hanako
f-hanako

スコア159

test CHANGED
File without changes
test CHANGED
@@ -284,7 +284,15 @@
284
284
 
285
285
  '表示処理
286
286
 
287
- lblID.text = ...
287
+ lblID.text = ID
288
+
289
+ Debug.Print(ID)
290
+
291
+ '.............
292
+
293
+ Me.Refresh()
294
+
295
+
288
296
 
289
297
  End Sub
290
298
 

3

修正コード２追記

2017/05/15 10:06

投稿

f-hanako
f-hanako

スコア159

test CHANGED
File without changes
test CHANGED
@@ -70,7 +70,7 @@
70
70
 
71
71
 
72
72
 
73
- ■修正コード
73
+ ■修正コード１
74
74
 
75
75
  ---
76
76
 
@@ -170,10 +170,6 @@
170
170
 
171
171
 
172
172
 
173
-
174
-
175
-
176
-
177
173
  Private sub display()
178
174
 
179
175
  Dim strSql as String
@@ -223,3 +219,103 @@
223
219
  End Class
224
220
 
225
221
  ```
222
+
223
+
224
+
225
+
226
+
227
+ ■修正コード２
228
+
229
+ ---
230
+
231
+ ```VB.NET
232
+
233
+ Public Class 子フォーム
234
+
235
+ Private _ID As Integer
236
+
237
+ Public Property ID() As Integer
238
+
239
+ Get
240
+
241
+ Return _ID
242
+
243
+ End Get
244
+
245
+ Set(value As Integer)
246
+
247
+ _ID = value
248
+
249
+ End Set
250
+
251
+ End Property
252
+
253
+
254
+
255
+ Public Structure DataStructure
256
+
257
+ Dim ID As Integer
258
+
259
+ '.............
260
+
261
+ End Structure
262
+
263
+
264
+
265
+ Private Sub frmHitSyosai_Load(sender As Object, e As EventArgs) Handles MyBase.Load
266
+
267
+ display()
268
+
269
+ End Sub
270
+
271
+
272
+
273
+ Private sub display()
274
+
275
+ Dim strSql as String
276
+
277
+ 'SQLを作成
278
+
279
+ strSql = "SELECT * FROM テーブル WHERE USRID = ID"
280
+
281
+ 'OleDbDataReaderでレコード取得
282
+
283
+
284
+
285
+ '表示処理
286
+
287
+ lblID.text = ...
288
+
289
+ End Sub
290
+
291
+
292
+
293
+ '親フォームからデータを取得
294
+
295
+ Public Sub SetData(ByVal d As DataStructure)
296
+
297
+ '表示ロジック
298
+
299
+ display()
300
+
301
+ End Sub
302
+
303
+
304
+
305
+ Private Sub ButtonUp_Click(sender As Object, e As EventArgs) Handles ButtonUp.Click
306
+
307
+ Dim frm As New 親フォーム
308
+
309
+ frm = CType(Me.Owner, 親フォーム)
310
+
311
+ frm.子フォーム_UpClick(sender, e)
312
+
313
+ End Sub
314
+
315
+
316
+
317
+ End Class
318
+
319
+
320
+
321
+ ```

2

修正コード追記

2017/05/15 10:03

投稿

f-hanako
f-hanako

スコア159

test CHANGED
File without changes
test CHANGED
@@ -65,3 +65,161 @@
65
65
  ・作成アプリケーションの種類：Windowsフォーム
66
66
 
67
67
  ・開発環境：Windows7 64bit／Visual Studio Professional 2012 ／.NET Framework 4.5
68
+
69
+
70
+
71
+
72
+
73
+ ■修正コード
74
+
75
+ ---
76
+
77
+ ```VB.NET
78
+
79
+ Public Class 親フォーム
80
+
81
+
82
+
83
+ Private Sub Button詳細_Click(sender As Object, e As EventArgs) Handles Button詳細.Click
84
+
85
+ Using 子フォーム As New 子フォーム
86
+
87
+ AddHandler 子フォーム.UpClick, AddressOf 子フォーム_UpClick
88
+
89
+ Dim _data as New DataStructure
90
+
91
+ '選択している行のデータを取得
92
+
93
+ _data.ID=....
94
+
95
+
96
+
97
+ 子フォーム.SetData( _data )
98
+
99
+ 子フォーム.ShowDialog(Me)
100
+
101
+ End Using
102
+
103
+ End Sub
104
+
105
+
106
+
107
+ Private Sub 子フォーム_UpClick(sender As Object, e As EventArgs)
108
+
109
+ With DataGridView1
110
+
111
+ '1行上を選択
112
+
113
+ '新たに選択した行のデータを取得
114
+
115
+ Dim _data as New DataStructure
116
+
117
+ _data.ID=....
118
+
119
+
120
+
121
+ 子フォーム.SetData( _data )
122
+
123
+ End With
124
+
125
+ End Sub
126
+
127
+ End Class
128
+
129
+
130
+
131
+
132
+
133
+ Public Class 子フォーム
134
+
135
+ Private _ID As Integer
136
+
137
+ Public Property ID() As Integer
138
+
139
+ Get
140
+
141
+ Return _ID
142
+
143
+ End Get
144
+
145
+ Set(value As Integer)
146
+
147
+ _ID = value
148
+
149
+ End Set
150
+
151
+ End Property
152
+
153
+
154
+
155
+ Public Structure DataStructure
156
+
157
+ Dim ID As Integer
158
+
159
+ '.............
160
+
161
+ End Structure
162
+
163
+
164
+
165
+ Private Sub frmHitSyosai_Load(sender As Object, e As EventArgs) Handles MyBase.Load
166
+
167
+ display()
168
+
169
+ End Sub
170
+
171
+
172
+
173
+
174
+
175
+
176
+
177
+ Private sub display()
178
+
179
+ Dim strSql as String
180
+
181
+ 'SQLを作成
182
+
183
+ strSql = "SELECT * FROM テーブル WHERE USRID = ID"
184
+
185
+ 'OleDbDataReaderでレコード取得
186
+
187
+
188
+
189
+ '表示処理
190
+
191
+ lblID.text = ...
192
+
193
+ End Sub
194
+
195
+
196
+
197
+ Public Event UpClick(ByVal sender As Object, ByVal e As EventArgs)
198
+
199
+
200
+
201
+ '親フォームからデータを取得
202
+
203
+ Public Sub SetData(ByVal d As DataStructure)
204
+
205
+ '表示ロジック
206
+
207
+ display()
208
+
209
+ End Sub
210
+
211
+
212
+
213
+ '上をクリックした旨のイベントを発行
214
+
215
+ Private Sub ButtonUp_Click(sender As Object, e As EventArgs) Handles ButtonUp.Click
216
+
217
+ RaiseEvent UpClick(Me, New EventArgs)
218
+
219
+ End Sub
220
+
221
+
222
+
223
+ End Class
224
+
225
+ ```

1

開発環境の追記

2017/05/15 09:40

投稿

f-hanako
f-hanako

スコア159

test CHANGED
File without changes
test CHANGED
@@ -55,3 +55,13 @@
55
55
 
56
56
 
57
57
  以上、よろしくお願いします。
58
+
59
+
60
+
61
+ ■開発環境
62
+
63
+ ---
64
+
65
+ ・作成アプリケーションの種類：Windowsフォーム
66
+
67
+ ・開発環境：Windows7 64bit／Visual Studio Professional 2012 ／.NET Framework 4.5