anggap aja nama dbgridnya Dft.... coba ketik ini dicodingnya :
Private Sub Dft_HeadClick(ByVal ColIndex As Integer)
Z = Dft.Columns(ColIndex).DataField
Dim rsTmp As New ADODB.Recordset
rsTmp.Source = "select * from M_RawMaterial where (stsDel <> 1) And
(stsOut<>1) ORDER BY " & Z & ""
rsTmp.Open rsTmp.Source, cn, adOpenKeyset, adLockBatchOptimistic
rsTmp.Requery
Set Dft.DataSource = rsTmp
Dft.Refresh
end sub
Semoga dapat membantu... Selamat mencoba....
Best Regard
Robert "Dark Blupi"
---------------------------------
See the all-new, redesigned Yahoo.com. Check it out.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
