Ada 2 cara untuk mengurutkan data pd saat head datagrid di klik, : 1. Memakai fasilitas Sort pd recordset
Private Sub DG1_HeadClick(ByVal ColIndex As Integer) Adodc1.Recordset.Sort = DG1.Column(ColIndex).DataField End Sub 2. merubah query recorset gunakan perintah order by .. Private Sub DG1_HeadClick(ByVal ColIndex As Integer) Adodc1.RecordSource = "select * from (namaTable/Query) ORDER BY " & DG1.Columns(Combo1.ListIndex).DataField End Sub ----- Original Message ----- From: mukromin To: [EMAIL PROTECTED] ; [email protected] Sent: Friday, April 20, 2007 7:46 AM Subject: [Programmer-VB] Urutkan data pada datagrid Selamat pagi semua, Saya punya data yang ditampilkan pada datagrid. Saya mau data tersebut otomatis urut ( asc / desc ) jika header kolom pada datagrid yang bersangkutan di klik. Tapi saya belum tau kodingnya seperti apa. Mungkin rekan-rekan ada yang bisa bantu. Atas bantuan dan perhatiaannya saya ucapkan terima kasih. Salam Mukromin
