下拉列表绑定字段形如"20091021"，现想在列表中显示为“2009年10月21日，DataTextFormatString应当怎么写？

ynduanlian 2010-02-03 03:06:02

Dim Sb As StringBuilder = New StringBuilder(" Select distinct Date1 from SHEET order by Date1 DESC")

Dim Cn As OleDbConnection = New OleDbConnection(StrConnection)

Dim Da As OleDbDataAdapter = New OleDbDataAdapter(Sb.ToString(), Cn)

Dim Ds As DataSet = New DataSet()

Cn.Open()

Da.Fill(Ds, "Res")

LstDate.DataSource = Ds.Tables(0).DefaultView

LstDate.DataMember = "Date1"

LstDate.DataValueField = "Date1"

LstDate.DataTextFormatString = 这里怎么写能显示年XXXX年XX月XX日

LstDate.DataBind()

Cn.Close()

Date1在数据库是都是8位写长表是四位年，2位月，2位日。

...全文

92 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

我是小小码农 2010-02-03

打赏
举报

date.ToString

ynduanlian 2010-02-03

打赏
举报

[Quote=引用 3 楼 ilwm1984 的回复:]
直接 ToString("yyyy年MM月dd日");
就可以了
[/Quote]
在哪里ToString ？

jeremyxuzz 2010-02-03

打赏
举报

直接 ToString("yyyy年MM月dd日");
就可以了

mengxj85 2010-02-03

打赏
举报

Dim Sb As StringBuilder = New StringBuilder(" Select distinct cast(Date1 as datetime) from SHEET order by Date1 DESC")
Dim Cn As OleDbConnection = New OleDbConnection(StrConnection)
Dim Da As OleDbDataAdapter = New OleDbDataAdapter(Sb.ToString(), Cn)
Dim Ds As DataSet = New DataSet()
Cn.Open()
Da.Fill(Ds, "Res")
LstDate.DataSource = Ds.Tables(0).DefaultView
LstDate.DataMember = "Date1"
LstDate.DataValueField = "Date1"
LstDate.DataTextFormatString = {0:"yyyy年MM月dd日"};
LstDate.DataBind()
Cn.Close()

mengxj85 2010-02-03