干货
组合查询窗体中查询字段有日期有时间,那这样我们还用文本框来显示的话是不是用户体验很不好,本着提升用户体验的想法把文本框换成DTPicker控件。下面看看效果和怎么实现的。
功能是当点击需要输入日期时间的查询条件时,文本框自动转换为时间控件。时间控件要使用数组,利用循环语句减少代码量。
Private Sub comFields1_Click(Index As Integer)
Dim i As Integer
'设置时间控件
For i = 0 To 2
If comFields1(i).Text = "注册日期" Or comFields1(i).Text = "注销日期" Then
DTPicker1(i).Format = dtpCustom
DTPicker1(i).Visible = True
txtInquiry1(i).Visible = False
Else
If comFields1(i).