主题：[求助]下拉組合框或日期控件格式化日期

combobox1控件

enter事件

e.sender.combolist = datatables("费用信息").getcomboliststring("月份")

valuechanged事件

if e.sender.value > "" then

dim y,m as integer

dim dt1,dt2 as date

y = cint(e.sender.value.substring(0,4))

m = cint(e.sender.value.substring(5,2))

dt1 = new date(y,m,1)

dt2 = new date(y,m,Date.DaysInMonth(y,m))
e.form.controls(textbox1).value = dt1

e.form.controls(textbox2).value = dt2        '此处建议使用datetimepicker

end if

另外表中的年月写法可参照帮助：

利用ValidateEdit事件，也可以实现代码录入：

If e.Col.Name = "产品" Then
    If e.Text = "tv" Then
        e.Text = "电视机"
    ElseIf e.Text = "tel"
        e.Text = "电话机"
    End If
End If

你自己写写试试，搞不定的话再跟帖