(ASK)Penggunaan DataGrid

Forum diskusi pemrograman VB6

(ASK)Penggunaan DataGrid

Postby cahNgganteng » 22 Feb 2012, 12:56

Salam Coding...

Saya ada form seperti ini

cariwo.jpg


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


oh ya itu form yang lain yah.

Makasih ya om/tante semua. Maklum baru pertama kalinya pake Data Grid ^:)^ ^:)^
You do not have the required permissions to view the files attached to this post.
Everyone can be a hero, but not a legend
cahNgganteng
Prajurit Satu
Prajurit Satu
 
Posts: 52
Joined: 03 Feb 2012, 08:08
Location: Cilacap, Indonesia
Memberi kopi: 13 cangkir
Mendapat kopi: 5 cangkir

Re: (ASK)Penggunaan DataGrid

Postby BRAJA » 22 Feb 2012, 13:48

Bind ke Datagridnya menggunakan apa ?
User avatar
BRAJA
Prajurit Satu
Prajurit Satu
 
Posts: 69
Joined: 14 Mar 2010, 15:49
Memberi kopi: 0 cangkir
Mendapat kopi: 4 cangkir

Re: (ASK)Penggunaan DataGrid

Postby JBAlia » 22 Feb 2012, 14:19

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.
-- Phew, my Laptop is Back...

Post JBAlia telah mendapat kopi dari:
cahNgganteng
JBAlia
Prajurit Satu
Prajurit Satu
 
Posts: 248
Joined: 26 Sep 2011, 11:03
Location: Airmadidi
Memberi kopi: 13 cangkir
Mendapat kopi: 42 cangkir

Re: (ASK)Penggunaan DataGrid

Postby BRAJA » 22 Feb 2012, 17:31

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
User avatar
BRAJA
Prajurit Satu
Prajurit Satu
 
Posts: 69
Joined: 14 Mar 2010, 15:49
Memberi kopi: 0 cangkir
Mendapat kopi: 4 cangkir

Re: (ASK)Penggunaan DataGrid

Postby cahNgganteng » 24 Feb 2012, 13:31

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 ...
Everyone can be a hero, but not a legend
cahNgganteng
Prajurit Satu
Prajurit Satu
 
Posts: 52
Joined: 03 Feb 2012, 08:08
Location: Cilacap, Indonesia
Memberi kopi: 13 cangkir
Mendapat kopi: 5 cangkir


Return to Visual Basic 6.0

Who is online

Users browsing this forum: No registered users and 4 guests