combobox与DTPicke的MonthView控件设置日期间隔

1、如何加载

VB默认的控件栏中是没有DTpicker日期控件的，添加过程：工具——部件——控件——“Microsoft  Windows Common Controls-2.6.0”——应用——确定

 

2、如何与数据库中的日期格式相符合

DTPicker1.Format   =   dtpCustom   
DTPicker1.CustomFormat   =   "yyyy.mm.dd"

 

3、设置combobox与MonthView联合运用

'第一个combo调用选择日期控件选择日期、

Private Sub Combo1_DropDown() '当combo被操作的的时候
    MonthView2.Visible = False
    If MonthView1.Visible = True Then '判定日期控件是否显现、做出反应
        MonthView1.Visible = False
    Else
        MonthView1.Visible = True
    End If
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) '日期控件单机
    Combo1.Text = MonthView1.Value '吧日期付给combo
    MonthView1.Visible = False '隐藏自己

End Sub

3、用SQL语句查询从日期1到日期2的数据

txtsql = "select * from MoneyAmount_Info where date >= '" & Combo1.Text & "' and date<='" & Combo2.Text & "'"

————————最后查询已经经过测试————————————chenchen