如何及时更新时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的输入窗口中有个COMBOBOX控件和DATETIMEPICKER控件，我想根据combobox选的选项，DATETIMEPICKER时时生成新的时间。

我在COMBOBOX控件的 VALUECHANGE 事件中输入以下代码：

Dim a As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim b As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

If a.Value="现金" Then
b.Value = Date.Today
End If

If a.Value= "月结" Then
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

b.Value = dt2

End If

If a.Value= "月结30天" Then
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month

Dim dt3 As New Date(y, m+1, Date.DaysInMonth(y, m+1)) '获取本月的最后一天

b.Value = dt3

End If

为什么选现金时，可以时时更新，而且选了后面这两个不会马上更新时间，但窗口重新打开时，时间又会显示出来，如果可以实现先后面这两个时间也能马上显示出来呢？

这样改一下

Dim a As WinForm.ComboBox = e.Form.Controls("ComboBox3")

Dim b As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

If a.text ="现金" Then

b.Value = Date.Today

End If

If a.text = "月结" Then

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

b.Value = dt2

End If

If a.text = "月结30天" Then

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt3 As New Date(y, m+1, Date.DaysInMonth(y, m+1)) '获取本月的最后一天

b.Value = dt3

End If

改了，还是不行。

只有选“现金”时会马上变，其它的都不行。

试用版的例子发上来，测试一下。

VALUECHANGE 的使用，有些情况下，需要变通。

真奇怪，我自己做个简单的例子时，是没有问题的。但在我的例子上就不行。我再检查一下。

我找到原因了，原来我这个DATETIMEPICKER控件邦定到表的付款时间，所以不行。如果取消邦定就可以了。

但我想不通，其它的不行，怎么选“现金”就可以呢？

绑定了，就能直接赋值：

主题：如何及时更新时间