Dim cnsql As String
Set rs = New ADODB.Recordset
cnsql = "select top 30 udate,utitle,money,memo from luozi_use order by udate,id desc"
rs.CursorLocation = adUseClient
rs.Open cnsql, cn, 3, 3
If Not rs.EOF Then
Set DataGrid1.DataSource = rs
With DataGrid1
.Caption = "最近30笔消费详情"
.Columns(0).Caption = "日期"
.Columns(1).Caption = "说明"
.Columns(2).Caption = "金额"
.Columns(3).Caption = "详细说明"
.Columns(0).width = 1000
.Columns(1).width = 1500
.Columns(2).width = 1000
.Columns(3).width = 5000
.Columns(0).DataField = Format(rs("udate"), "yyyy年 mm月 d日")
End With
我的rs("udate")原来的数值是2008-10-16,想转成 2008年10月16日形式,但是我发现.Columns(0).DataField 无法对这个值进行更改.有高人帮解决一下么,先谢过了!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货