在做组合查询时,本着以用户为本的原则,做了当用户选择为日期时间查询时,在相应的查询内容一项显示为日期时间控件,方便用户选择
本人思路如下:
窗体中添加DTPicker控件,将控件的Visible属性设置为False
为字段名添加Click事件,当字段显示为“**日期”时,显示为日期格式,当字段显示为“**时间”时,显示为时间格式。(日期控件和时间控件为一个控件,只需要改变Format属性即可).否则,显示为Text控件
思路很简单,那么要如何实现这个思路呢
代码如下:
Rem:判断是否选择日期控件
Private Sub cb1_Click()
If cb1.Text = "上机日期" Or cb1.Text = "下机日期" Then
DTP1.Format = dtpCustom
DTP1.Visible = True '日期控件可见
txtquery1.Visible = False 'Text控件不可见
Exit Sub
Else
If cb1.Text = "上机时间" Or cb1.Text = "下机时间" Then
DTP1.Format = dtpTime '设置DTP1的属性为时间格式
DTP1.Visible = True '时间控件可见
txtquery1.Visible = False 'Text控件不可见
Exit Sub
Else
txtquery1.Visible = True 'Text控件可见
DTP1.Visible = False '日期时间控件不可见
Exit Sub
End If
End If
End Sub
控件之间的转换就这样实现了
有没有更好的思路呢?欢迎留言评论!