Kalo yang pernah saya buat seperti ini :
Public Sub AlterGridRow(msgX As MSFlexGrid, xRow As Long)
Dim i As Long
On Error GoTo AlterGridRow_Error
With msgX
For i = 1 To .Cols - 1
.Row = xRow
.Col = i
.CellBackColor = RGB(254, 179, 163)
Next i
End With
On Error GoTo 0
Exit Sub
AlterGridRow_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure AlterGridRow of Module SAKTI"
End Sub
Loop load ke flexgrid :
- Load record ke flexgrid,
- Cek field tgl_mulai dengan tgl sekarang,
- Jika tgl_mulai lebih besar drpd tlg sekarang Call
AlterGridRow(msg1,[row sekarang])
End loop
Semoga membantu.
On Tue, Aug 12, 2008 at 8:32 AM, Kadek Pong <[EMAIL PROTECTED]> wrote:
>
>
> Dear VB Programmer
>
>
> Saya mempunyai field di tabel namanya tgl_mulai
> Jika field tgl_mulai melewati tanggal sekarang, maka record data yang
> ditampilkan pada
> ms flexgrid akan berubah warna merah (atau nge-blink) dan sebaliknya record
> data yang lain akan berwana hitam.
> Bagaimana cara membuat script untuk masalah ini.
>
> Terima kasih
> KP
