组合查询之日期时间判定

 

在做组合查询时，本着以用户为本的原则，做了当用户选择为日期时间查询时，在相应的查询内容一项显示为日期时间控件，方便用户选择

本人思路如下:

       窗体中添加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

控件之间的转换就这样实现了

有没有更好的思路呢？欢迎留言评论！