将值从窗体中的（DataGridView1_Click）传递到另一窗体中的另一个子

debugcn 发表于 Dev

塔里克·耶姆

我想将值从（DataGridView1_Click）传递给另一子窗体，该子窗体的另一种形式如何实现？有什么办法吗，请帮帮我

Public Class SearchCustomers
Private Sub SearchCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtCustomerSearchBox.Text = ""
        CBCustomerSearch.SelectedIndex = -1
        txtCustomerSearchBox_TextChanged(Nothing, Nothing)
    End Sub

点击事件

  '  Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
  'FrmCustomers mycustomers = New FrmCustomers()   
  '  mycustomers.show_data(DataGridView1.CurrentRow.Cells(1).Value.ToString)
  '  End Sub

    Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        For I = 0 To DataGridView1.Rows.Count - 1
            DataGridView1.Rows(I).Cells(0).Value = "Go"
            Dim row As DataGridViewRow = DataGridView1.Rows(I)
            row.Height = 25
        Next
    End Sub

    Private Sub DataGridView1_CellContentClick( ByVal sender As System.Object,  ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

     End Sub

Private Sub DataGridView1_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles DataGridView1.Click
            Dim oForm As New FrmCustomers()
            Dim CustomerCode As String
            CustomerCode = (DataGridView1.CurrentRow.Cells(1).Value.ToString)
            oForm.show_data(CustomerCode)
            MsgBox(DataGridView1.CurrentRow.Cells(1).Value.ToString, MsgBoxStyle.Exclamation, "Warning Message")        
End Sub
End Class

这是形式2中的子方法，我希望此方法显示从DB到TextBox的数据，如下面的代码所示

 Sub show_data(CustomerCod)
        OpenFileDialog1.FileName = ""
        Dim sqls = "SELECT * FROM Customers WHERE CustomerCode=N'" & (CustomerCod) & "'"
        Dim adp As New SqlClient.SqlDataAdapter(sqls, SQLconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count = 0 Then
            MsgBox("no record found", MsgBoxStyle.Exclamation, "warning message")
        Else
            Dim dr = dt.Rows(0)
            On Error Resume Next
            CustomerCode.Text = dr!CustomerCode
            CustomerName.Text = dr!CustomerName
            Address.Text = dr!Address
            Country.Text = dr!Country
            City.Text = dr!City
            Fax.Text = dr!Fax
            Mobile.Text = dr!Mobile
            Email.Text = dr!Email
            Facebook.Text = dr!Facebook
            Note.Text = dr!Note
            '====================== Image Reincyrpation 
            If IsDBNull(dr!Cust_image) = False Then
                Dim imgByteArray() As Byte
                imgByteArray = CType(dr!Cust_image, Byte())
                Dim stream As New MemoryStream(imgByteArray)
                Dim bmp As New Bitmap(stream)
                Cust_image.Image = Image.FromStream(stream)
                stream.Close()
                Label16.Visible = False
                '================================================
            End If
            BtnEdit.Enabled = False
            BtnDelete.Enabled = False
            BtnSave.BackColor = Color.Red
            CustomerName.Focus()
            End If 
    End Sub

用户11982798

您可以这样做（只需致电）：

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
    FrmCustomers.Show()
    FrmCustomers.Hide()
    FrmCustomers.show_data(CustomerCod)
    FrmCustomers.Dispose()
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。