0

私の frmMain クラスには、データベースからデータを入力する textbox(txtCustomer) があります。この値を frmDepartment(txtDeptCustomer) の別のテキスト ボックスに渡したいと思います。

使用しているコードが txtDeptCustomer に値を表示しない理由のロジックがわかりません。変数を使用してデータベースに問題なくクエリを実行できるため、文字列は渡されますが、txtDeptCustomer には表示されません。誰かが私の間違いを指摘してくれたら幸いです。ありがとう

からの部門

Dim customer As Object = frmMain.txtCustomer.Text

これは正しい値をdbに渡しています。

sql = "SELECT * FROM Departments where Customer = '" & CType(customer, String) & "'"

textbox txtDeptCustomer <--- 値を表示しない

Private Sub txtDeptCustomer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDeptCustomer.TextChanged
        txtDeptCustomer.Text = CType(customer, String)
    End Sub
4

2 に答える 2

2 
Public Customer as String = Nothing

    Private Sub btnDO_Click(sender As Object, e As EventArgs) Handles btnDoWork.Click
        Customer = Database Call
        Dim frmDepartmentInstance as new frmDepartment
        frmDepartment.ShowDialog(Me)
    End Sub

次に、frmDepartment の Load イベントで次のように言うことができます。

txtDeptCustomer.Text = frmMain.Customer

概念実証: 新しいプロジェクト。2 つのフォーム | フォーム 1 にはボタンとテキスト ボックスがあります | Form2にはテキストボックスしかありません

Public Class Form1
    Public Test As String = Nothing
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Test = TextBox1.Text
        Dim frm2 As New Form2
        frm2.ShowDialog(Me)
    End Sub
End Class

Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox1.Text = Form1.Test
End Sub
End Class
于 2013-10-24T11:39:52.140 に答える