I-BEGO

Salam Coding...

Saya ada form seperti ini



nah saya kepingin pada saat saya cari data di datagrid, di datagrid langsung di highlight. terus pas doble klik masuk ke form ini


oh ya itu form yang lain yah.

Makasih ya om/tante semua. Maklum baru pertama kalinya pake Data Grid

Bind ke Datagridnya menggunakan apa ?

Anda bisa menggunakan bookmark untuk menghighlight.
contoh :
asumsi anda menggunakan adodc1 untuk menampilkan data ke datagrid

Code: Select all

datagrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark


sedangkan untuk menampilkan form bisa menggunakan event double click.

Post JBAlia telah mendapat kopi dari:

cahNgganteng

Jika asumsi menggunakan adodc :

Mencari WO :

Code: Select all

    if adodc1.recordset.recordcount>0 then
        adodc1.recordset.movefirst
        adodc1.recordset.find "order_nbr = "'" & txtCariWorkOrder.text & "'"
    end if


Untuk buka form danmenampilkan data yg dimaksud :

Code: Select all

    NamaForm.txtWorkOrder.text = adodc1.recordset!order_nbr
    NamaForm.show 1

   'silahkan dilengkapi field lain


Post BRAJA telah mendapat kopi dari:

cahNgganteng

Seep om udah ngerti saya, berikut listing code yang saya gunakan

Code: Select all

Private Sub dgWO_DblClick()
    txtCariWO.Text = rswo.Fields("Order_nmbr")
    'frmEntry.txtNoWo.Text = rswo.Fields("Order_nmbr")
    'Unload Me
End Sub

Private Sub lvButtons_H1_Click()
    strnomor = txtCariWO.Text
    Unload Me
    frmEntry.Show
End Sub

Private Sub cmdCari_Click()
    If Not txtCariWO.Text = "" Then
        rswo.MoveFirst
        rswo.Find "Order_nmbr = '" & txtCariWO.Text & "'"
        If Not rswo.EOF Then
            'dgWO.RecordSelectors = True
            'dgWO.SelBookmarks.Add rswo.Bookmark
            dgWO.SelBookmarks.Add rswo.Bookmark
        End If
    ElseIf Not txtCariNotif.Text = "" Then
        rswo.MoveFirst
        rswo.Find "Notification_nmbr = '" & txtCariNotif.Text & "'"
        If Not rswo.EOF Then
            'dgWO.RecordSelectors = True
            dgWO.SelBookmarks.Add rswo.Bookmark
        End If
    ElseIf Not txtCariEquip.Text = "" Then
        rswo.MoveFirst
        rswo.Find "EQ_number = '" & txtCariEquip.Text & "'"
        If Not rswo.EOF Then
            dgWO.SelBookmarks.Add rswo.Bookmark
        End If
    End If
End Sub


Oh iya saya menggunakan strNomor sebagai alat tampung semetara semua yang berhubungan dengan nomor. Makasih para suhu semua . Monggo kopinya disruput ...