回复 4楼leikaihua的帖子
参考代码:
- ' format dates
- fg.ColFormat(1) = "yyyy-mm-dd"
- fg.ColFormat(2) = "Medium Date"
- fg.ColFormat(3) = "Medium Time"
- ' set some cells
- fg.TextMatrix(1, 1) = #7/4/1969#
- fg.TextMatrix(1, 2) = #7/4/1969#
- fg.TextMatrix(1, 3) = #7/4/1969#
- ' display results:
- Dim i%
- Debug.Print "Format"; Tab(20); "Content"; Tab(40); "Display"
- Debug.Print "-----------"; Tab(20); "-----------"; Tab(40); "-------------"
- For i = 1 To 3
- Debug.Print fg.ColFormat(i); Tab(20); _
- fg.Cell(flexcpText, 1, i); Tab(40); _
- fg.Cell(flexcpTextDisplay, 1, i)
- Next
复制代码
具体文档参考:
http://helpcentral.componentone. ... lformatproperty.htm |