Private Sub m_oFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_oFind.Click On Error Resume Next Dim cari = txtKriteria.Text Dim kolom = CbKriteria.Text If (Equals("Code", kolom)) Then Me.RefJnsByrTableAdapter.CariDataDgMap(DataSet.RefJnsByr, cari) ElseIf (Equals("Jenis Bayar", kolom)) Then Me.RefJnsByrTableAdapter.CariDataDgJnsByr(DataSet.RefJnsByr, cari) ElseIf (Equals("Deskripsi", kolom)) Then Me.RefJnsByrTableAdapter.CariDataDgNmMap(DataSet.RefJnsByr, cari) Else Dim i As Integer Dim a, b, c As String Dim _SPP As New SSPForm a = Me.DataGridView1.CurrentRow.Cells(0).Value.ToString b = Me.DataGridView1.CurrentRow.Cells(1).Value.ToString c = Me.DataGridView1.CurrentRow.Cells(2).Value.ToString i = DataGridView1.CurrentRow.Index With _SPP .m_oMAP.Text = a.Trim & "." & b.Trim .m_oDescription.Text = c.Trim End With Me.Hide() End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)