在做組合查詢時，本著以使用者為本的原則，做了當用戶選擇為日期時間查詢時，在相應的查詢內容一項顯示為日期時間控制元件，方便使用者選擇

本人思路如下:

       窗體中新增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

控制元件之間的轉換就這樣實現了

有沒有更好的思路呢？歡迎留言評論！