- PR -

別フォームへｄａｔａｏｗの値を渡したい

1|2 次のページへ»
投稿者投稿内容
ゆうじ
常連さん
会議室デビュー日: 2008/01/28
投稿数: 31
お住まい・勤務地: 東京都
投稿日時: 2008-02-16 00:14
度々申し訳ありませんがＶＢ２００５について教えてください。
①Ａ／Ｂ２つのフォームがありＡフォームで取得したdatarowを下記のコード
で記述しＢフォームで値を取得したいのですがエラーが表示されます。
②値が渡せましたらＣフォームＤフォームでも同様の作業が発生しますので
クラス？関数？として登録をしたいのですがどの様に行えばよろしいでしょうか？

Ａフォーム
Public Class Ａフォーム
Public drow As DataRow
END CLASS

Ｂフォーム
DIM ABC AS DATAROW = Ａフォーム.drow
DIM d AS INTEGER
Debug.WriteLine(ABC(2))
d = abc(2)

エラーメッセージ
オブジェクト参照がオブジェクト インスタンスに設定されていません。
と表示されます。
サイト等で調べたところ　ＮＥＷキーワードを使用しインスタンスを作成
する等とありましたが訳がわかりません。

よろしくお願いします。
nakaP
大ベテラン
会議室デビュー日: 2005/09/27
投稿数: 138
お住まい・勤務地: 高知
投稿日時: 2008-02-16 10:52
こんにちは。

引用:

ゆうじさんの書き込み (2008-02-16 00:14) より:

Ａフォーム
Public Class Ａフォーム
Public drow As DataRow
END CLASS

Ｂフォーム
DIM ABC AS DATAROW = Ａフォーム.drow
DIM d AS INTEGER
Debug.WriteLine(ABC(2))
d = abc(2)

エラーメッセージ
オブジェクト参照がオブジェクト インスタンスに設定されていません。
と表示されます。


エラー自体は文字通り、ＢフォームのABCというDataRowオブジェクトにＡフォームのdrowオブジェクトの参照が設定されていません。

で、どうすればいいのかという所ですが。
少し情報が足りないので補足をお願いします。
１．ＡフォームとＢフォームの関係は？
２．ＡフォームとＢフォームはどのように表示されている？
ゆうじ
常連さん
会議室デビュー日: 2008/01/28
投稿数: 31
お住まい・勤務地: 東京都
投稿日時: 2008-02-16 11:18
ＮＡＫＡＰサンありがとうございます。
Ａフォームのコマンドボタンをクリック→Ｂフォームを開く
上記の流れになっております。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _　　　　　　　　System.EventArgs) Handles Button1.Click
Dim f As New Ｂフォーム
Ｂフォーム.Show(Me)
End Sub
Ａフォームのイベントが上記となります。
よろしくお願いします。
よっし～。
ベテラン
会議室デビュー日: 2007/04/17
投稿数: 89
お住まい・勤務地: 北のほうの国
投稿日時: 2008-02-16 12:47
Ａフォームで drow には何か値がセットされているのでしょうか？
nakaP
大ベテラン
会議室デビュー日: 2005/09/27
投稿数: 138
お住まい・勤務地: 高知
投稿日時: 2008-02-16 13:13
引用:

ゆうじさんの書き込み (2008-02-16 11:18) より:
Ａフォームのコマンドボタンをクリック→Ｂフォームを開く


であれば、ＡフォームからＢフォームを開く時に、ＡフォームからＢフォームにdrowの値を渡せばよいでしょう。
Ｃフォーム、Ｄフォームを開く時も同じことです。

現在はＢフォームからＡフォームのdrowを参照しようとしています。
そして、Ｂフォームで宣言しているＡフォームはＢフォームを開いているＡフォームとは別物となっています。
ゆうじ
常連さん
会議室デビュー日: 2008/01/28
投稿数: 31
お住まい・勤務地: 東京都
投稿日時: 2008-02-16 14:29
よっしーサン
値はｉｎｔ型です。
ｎａｋａｐサン
ご回答ありがとうございます。
勉強になりました、ですが値の渡しかたが解りません。
Ａフォーム側でどの様な記述すればよろしいのですか？
Ａフォームから同様にＣフォーム／Ｄフォームも開くのですが、
それぞれのコマンドボタンのイベントに記述が必要になるのでしょうか？

[ メッセージ編集済み 編集者: ゆうじ 編集日時 2008-02-16 14:34 ]
nakaP
大ベテラン
会議室デビュー日: 2005/09/27
投稿数: 138
お住まい・勤務地: 高知
投稿日時: 2008-02-16 16:31
引用:

ゆうじさんの書き込み (2008-02-16 14:29) より:
よっしーサン
値はｉｎｔ型です。
ｎａｋａｐサン
ご回答ありがとうございます。
勉強になりました、ですが値の渡しかたが解りません。
Ａフォーム側でどの様な記述すればよろしいのですか？
Ａフォームから同様にＣフォーム／Ｄフォームも開くのですが、
それぞれのコマンドボタンのイベントに記述が必要になるのでしょうか？

<font size=-1>[ メッセージ編集済み 編集者: ゆうじ 編集日時 2008-02-16 14:34 ]</font>


いくつか方法はあります。
感覚的に分かりやすいのはＢフォームにユーザープロパティを追加する方法でしょうか。
コード:
Ｂフォーム：
Public Class BForm
	Private _drow As DataRow
	Public Property drow() As DataRow
		Get
			Return _drow
		End Get
		Set(ByVal value As DataRow)
			_drow = value
		End Set
	End Property
End Class

Ａフォーム：
Public Class AForm
	Private drow As DataRow
	
	Private Sub Button1_Click(Byval sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim f As New BForm
		f.drow = Me.drow
		f.Show()
	End Sub
End Class

ゆうじ
常連さん
会議室デビュー日: 2008/01/28
投稿数: 31
お住まい・勤務地: 東京都
投稿日時: 2008-02-16 18:40
ＮＡＫＡＰサマありがとうございます。
教えていただいた通りコードを記述し、Ｂフォームにて
Debug.WriteLine(drow(2))
と確認をしましたが、エラーが起こります。
値の取得方法がいまいちわかりません。よろしくお願いします。
1|2 次のページへ»

スキルアップ／キャリアアップ（JOB@IT）