如何在 vbnet 中的另一个选项卡tabcontrol中显示 datagridview

如何解决如何在 vbnet 中的另一个选项卡tabcontrol中显示 datagridview

我希望有人可以帮助我。我在 vbnet 中有一个项目链接到数据库。我的讲师让我使用 tabcontrol。我已经完成了 tabpages1 中的所有源代码，但在接下来的过程中遇到了困难。我必须在 tabpage2 中编写程序以通过输入一些键从 datagrid(dgv1) 中搜索数据，并且它必须显示在 tabpages2 中（使用 dgv2）。它就像我必须在 tabpages2（使用 dgv2）中调用 dgv1 我包含了我到目前为止所做的源代码。截止日期是 1 周，我希望我能立即解决它。（很抱歉它与马来语混在一起）谢谢

Imports MysqL.Data.MysqLClient
Public Class Form2
    Public cmd As MysqLCommand
    Public rd As MysqLDataReader
    Public da As MysqLDataAdapter
    Public ds As DataSet
    Public sql As String

    Private Sub Form2_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
        Dim da As New MysqLDataAdapter
        Dim ds As New DataSet

        Call conecDB()
        da = New MysqLDataAdapter("Select kd_pemasok,nm_pemasok,cp,alamat_pemasok,telp_pemasok FROM tb_pemasok",connDB)
        ds = New DataSet
        da.Fill(ds,"tb_pemasok")
        dgv1.DataSource = ds.Tables("tb_pemasok")
        dgv1.Columns(0).HeaderText = "Kode Pemasok"
        dgv1.Columns(1).HeaderText = "Nama Perusahaan"
        dgv1.Columns(2).HeaderText = "Contact Person"
        dgv1.Columns(3).HeaderText = "Alamat Perusahaan"
        dgv1.Columns(4).HeaderText = "Telp Perusahaan"
    End Sub
    Private Sub TabPage1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnsimpan.Click
        Try

            sql = "INSERT INTO `tb_pemasok`(`kd_pemasok`,`nm_pemasok`,`cp`,`alamat_pemasok`,`telp_pemasok`) " _
                & "VALUES ('" & txtkd_pemasok.Text & "','" & txtnm_pemasok.Text & "','" & txtcp.Text & "','" & txtalamat.Text & "','" & txttelp.Text & "')"

            cmd = New MysqLCommand(sql,connDB)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Insert Data Barang Berhasil")

            da = New MysqLDataAdapter("Select kd_pemasok,connDB)
            ds = New DataSet
            da.Fill(ds,"tb_pemasok")

            dgv1.DataSource = ds.Tables("tb_pemasok")
            txtkd_pemasok.Text = ""
            txtnm_pemasok.Text = ""
            txtcp.Text = ""
            txtalamat.Text = ""
            txttelp.Text = ""
            txtkd_pemasok.Focus()


        Catch ex As Exception
            MessageBox.Show("Insert data Barang GAgal.")
        End Try

    End Sub

    Private Sub dgv1_CellMouseClick(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv1.CellMouseClick
        lbkd_pemasok.Text = dgv1.Rows(e.RowIndex).Cells(0).Value

        txtkd_pemasok.Text = dgv1.Rows(e.RowIndex).Cells(0).Value
        txtnm_pemasok.Text = dgv1.Rows(e.RowIndex).Cells(1).Value
        txtcp.Text = dgv1.Rows(e.RowIndex).Cells(2).Value
        txtalamat.Text = dgv1.Rows(e.RowIndex).Cells(3).Value
        txttelp.Text = dgv1.Rows(e.RowIndex).Cells(4).Value

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnedit.Click

        If txtkd_pemasok.Text = "" Then
            MsgBox("SILAHKAN KLIK SALAH SATU DATA DARI GRID BaraNG UNTUK EDIT DATA")
            dgv1.Focus()
        Else
            If btnedit.Text = "Edit" Then
                btnedit.Text = "Update"
                btnsimpan.Enabled = False
                txtkd_pemasok.Enabled = True

                txtkd_pemasok.Focus()
            Else
                Try

                    sql = "UPDATE `tb_pemasok` SET `kd_pemasok`='" & txtkd_pemasok.Text & "'," _
                    & "`nm_pemasok`='" & txtnm_pemasok.Text & "'," _
                    & "`cp`='" & txtcp.Text & "'," _
                    & "`alamat_pemasok`='" & txtalamat.Text & "'," _
                    & "`telp_pemasok`='" & txttelp.Text & "' " _
                    & "WHERE `kd_pemasok`='" & lbkd_pemasok.Text & "'"
                    cmd = New MysqLCommand(sql,connDB)
                    cmd.ExecuteNonQuery()

                    MessageBox.Show("UPDATE Data Barang Berhasil")
                    da = New MysqLDataAdapter("Select kd_pemasok,connDB)
                    ds = New DataSet
                    da.Fill(ds,"tb_pemasok")

                    dgv1.DataSource = ds.Tables("tb_pemasok")

                    txtkd_pemasok.Text = ""
                    txtnm_pemasok.Text = ""
                    txtcp.Text = ""
                    txtalamat.Text = ""
                    txttelp.Text = ""

                    txtkd_pemasok.Enabled = True
                    btnsimpan.Enabled = True
                    btnedit.Text = "Edit"


                Catch ex As Exception
                    MessageBox.Show("UPDATE Data Barang GAgal")

                End Try
            End If
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnhapus.Click
        If txtkd_pemasok.Text = "" Then
            MsgBox("SILAHKAN KLIK SALAH SATU DATA DARI GRID BaraNG UNTUK DIHAPUS")
            dgv1.Focus()
        Else
            Try
                sql = "delete from tb_pemasok where `kd_pemasok`='" & txtkd_pemasok.Text & "'"
                cmd = New MysqLCommand(sql,connDB)
                cmd.ExecuteNonQuery()

                da = New MysqLDataAdapter("Select kd_pemasok,connDB)
                ds = New DataSet
                da.Fill(ds,"tb_pemasok")
                txtkd_pemasok.Text = ""
                txtnm_pemasok.Text = ""
                txtcp.Text = ""
                txtalamat.Text = ""
                txttelp.Text = ""

                txtkd_pemasok.Enabled = True
                btnsimpan.Enabled = True
                btnedit.Text = "Edit"

                dgv1.DataSource = ds.Tables("tb_pemasok")
            Catch ex As Exception
                MessageBox.Show("HAPUS Data Barang GAgal")

            End Try
        End If
    End Sub

    Private Sub btnkelur_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnkelur.Click
        Me.Close()
    End Sub

    Private Sub btncari_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btncari.Click
        If txtcarinama.Text = "" Then
            MsgBox("Silahkan Masukkan Nama Pemasok",MsgBoxStyle.Question,"Pertanyaan")
            txtcarinama.Focus()
        Else
            da = New MysqLDataAdapter("Select kd_pemasok,telp_pemasok from tb_pemasok where nm_pemasok='" & txtcarinama.Text & "'","tb_pemasok")
            dgv2.DataSource = ds.Tables("tb_pemasok")
        End If
       
    End Sub

End Class