- PR -

サブフォームから改行付の文字列をメインフォームへ渡す方法

1
投稿者投稿内容
Nak
会議室デビュー日: 2005/03/11
投稿数: 18
投稿日時: 2005-06-06 22:33
いつもお世話になります。①～②のような処理を行いたいのですが、サブフォームからメインフォームへ改行つきの文字列を渡す方法が分かりません。
①メインフォームからサブフォームを起動
②サブフォーム内のデータグリッドの明細ごとに改行して、メインフォームに戻す
※メインフォームの戻すオブジェクトはテキストボックスでもラベルでもかまいません。
申し訳ないのですが、ご存知の方がいらっしゃったら教えてください。


***参照プログラム（②や③の方法ではメインフォームへ値渡しはできませんでした。①の方法では改行はできないのですが、TextBoxには正常に反映します。）
Private Sub btnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReturn.Click
Dim i As Integer
Dim html As New StringBuilder
Dim clscom As New ClsCommon

For i = 0 To dgdTemp.Items.Count - 1
①html.Append(clscom.SafeSql(dgdTemp.Items(i).Cells(1).Text))
②'html.Append(clscom.SafeSql(dgdTemp.Items(i).Cells(1).Text & ControlChars.CrLf))
③'html.Append(clscom.SafeSql(dgdTemp.Items(i).Cells(1).Text & "<BR>"))

Next
Dim valForm As String = Request.QueryString("form")
Dim valObj As String = Request.QueryString("obj")
Dim valValue As String = html.ToString

Dim strScript As String

strScript = "<script language=javascript>"
strScript &= "window.opener." & valForm & "." & valObj & ".value='" & valValue & "';"
strScript &= "window.close();"
strScript &= "</script>"
Response.Write(strScript)

End Sub
1

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