Private Sub Form_Load()
MSFlexGrid1.TextMatrix(1, 1) = "Twinkle"
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
With MSFlexGrid1
.Row = 1
.Col = 1
.CellForeColor = IIf(.CellForeColor = vbBlack, vbRed, vbBlack)
.CellBackColor = IIf(.CellBackColor = vbWhite, vbGreen, vbWhite)
End With
End Sub
假設您的欄位名稱是 UpdateDate,則在 SQL 語法內可以以此格式將欄位的內容進行格式設定:
Format(UpdateDate, "yyyy/MM/dd")
沒有留言:
張貼留言