1、如何加载
VB默认的控件栏中是没有DTpicker日期控件的,添加过程:工程——部件——“MicrosoftWindows Common Controls-2.6.0”
——应用——确定
2、几个主要属性:
CustomFormat | 获得或设置用于在控件中格式化日期和/或时间的自定义格式字符串 |
Format | 决定是否使用标准或自定义格式显示日期和时间。 取值为: 0 dtpLongDate 1 dtpShortDate 2 dtpTime 3 dtpCustom |
MaxDate | 获得或设置能被显示或者通过控件接受的最近日期 |
MinDate | 获得或设置能被显示或者通过控件接受的最早日期。 |
Value | 获得或设置当前日期 |
3、在SQL中取值语句:
txtSQL = "select * fromCancelCard_Info where Date<='" & 结束日期 & "'" &"and date>='" & 开始日期 & "'"
当然单单这样很可能取不出来值;最大的因素就是日期的格式不统一。比如,yyyy-mm-dd 、 yyyy/mm/dd
所以,我们还需要转换日期的格式:
1、Format(DTPckStart.Value,"yyyy-mm-dd")
2、利用convert函数转换
示例代码
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