玩轉控制項DTPicker

 

 

Private Sub cmdFind_Click()Dim StartDate As String     '用於存放開始時間Dim EndDate As String       '用於存放結束時間    StartDate = Format(DTPckStart.Value, "yyyy-mm-dd")    EndDate = Format(DTPckEnd.Value, "yyyy-mm-dd")        txtSQL = "select * from CancelCard_Info where Date<='" & EndDate & "'" & "and date>='" & StartDate & "'"    'txtSQL = "select * from ReCharge_Info where date between '" & StartDate & "'and'" & EndDate & "'"    Set mrc = ExecuteSQL(txtSQL, Msgtext)        If DTPckStart.Value > DTPckEnd.Value Then        MsgBox "請選擇正確的時間範圍！", vbOKOnly + vbExclamation, "提示"        Exit Sub    Else        If mrc.EOF Then            MsgBox "沒有記錄！", vbOKOnly + vbExclamation, "提示"            myFlexGrid.Clear    '清除myFlexGrid 的內容            Exit Sub        Else            With myFlexGrid     'myFlexGrid新增內容···End sub