主题：组合框日期格式

Dim str As String = DataTables("订单").GetComboListString("日期")
Dim strs As String
For Each s As String In str.Split("|")
    strs + = Format(Cdate(s.Split(" ")(0)),"yyyy-MM-dd") & "|"
Next
e.Sender.ComboList = strs.Trim("|")

这样才简单些：

Dim str As String = DataTables("订单").GetComboListString("日期")
Dim strs As String
For Each s As String In str.Split("|")
    strs + = Format(Cdate(s),"yyyy-MM-dd") & "|"
Next
e.Sender.ComboList = strs.Trim("|")