Gini bro...
liat contoh ini :
liat tulisan yang di mark "''...."
With MSFlexGrid1
MSFlexGrid1.BackColorSel = &HC00000 '' : Ini set background
rs.MoveFirst
Dim i As Long
i = 1 '' : Proses Looping data per recordset ke Flexgrid
Do Until rs.EOF
.AddItem 1
.TextMatrix(i, 0) = rs!qty
.TextMatrix(i, 1) = rs!Item
.TextMatrix(i, 2) = Format(rs!Price, "#,##0")
.TextMatrix(i, 3) = Format(rs!disc, "#,##0")
.TextMatrix(i, 4) = Format(rs!total, "#,##0")
.TextMatrix(i, 5) = rs!Taxable
.TextMatrix(i, 6) = IIf(rs!Serviceable = 1, "Y", "N")
.TextMatrix(i, 7) = rs!Printto
.TextMatrix(i, 8) = rs!tanggal
.TextMatrix(i, 9) = rs!Tax
.TextMatrix(i, 10) = IIf(rs!Services = 1, "Y", "N")
.TextMatrix(i, 11) = rs!discount
.TextMatrix(i, 12) = Format(rs!grandtotal, "#,##0")
.TextMatrix(i, 13) = rs!ProductType
.TextMatrix(i, 14) = IIf(rs!Discountable = 1, "Y", "N")
.TextMatrix(i, 15) = IIf(rs!minimumorder = 1, "Y", "N")
.TextMatrix(i, 16) = rs!productid
.Row = i
.Col = 0
.CellBackColor = &H808080 '' Ini untuk ngerubah warna per row
.CellAlignment = flexAlignLeftTop
.Col = 1
.CellBackColor = &H808080 '' Ini untuk ngerubah warna per row
.CellAlignment = flexAlignLeftTop
Call ReSizeCellHeight(MSFlexGrid1, Text1, Me, .Row, .Col)
.Col = 2
.CellBackColor = &H808080 '' Ini untuk ngerubah warna per row
.CellAlignment = flexAlignRightTop
.Col = 3
.CellBackColor = &H808080 '' Ini untuk ngerubah warna per row
.CellAlignment = flexAlignRightTop
.Col = 4
.CellBackColor = &H808080 '' Ini untuk ngerubah warna per row
.CellAlignment = flexAlignRightTop
i = i + 1
rs.MoveNext
Loop
