楼主,要灵活变通一下哦,表名得改一下吧?控件得改一下吧?
Dim cmb As WinForm.ComboBox
cmb = e.form.Controls("日期")
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
cmb.ComboList = strs.Trim("|")