请求处理中...
请求处理中...
DateTimePicker控件允许您提供一个格式化的日期字段，使日期选择变得容易。或者，用户可以从类似于MonthView控件的下拉日历界面中选择一个日期。
介绍
【1】加载方法
VB默认的控件栏中是没有DTpicker日期控件的，添加过程：工程——部件——“MicrosoftWindows Common Controls-2.6.0”——应用——确定
【2】两种操作模式
下拉式日历模式(缺省)—允许用户显示一种能够用来选择日期的下拉式日历。
时间格式模式—允许用户在日期显示中选择一个字段(例如：月、日、年等等)，按下控件右边的上下箭头来设置它的值。
可以自定义控件的下拉式日历的外观。使用各种颜色属性，例如CalendarBackColor、CalendarForeColor、CalendarTitleBackColor、CalendarTitleForeColor和CalendarTrailingForeColor，允许创建属于您自己的颜色方案。
【3】属性说明
机房运用
【1】如何与数据库中的日期格式相符合
1 2 | DTPicker1.Format = dtpCustom DTPicker1.CustomFormat = "yyyy.mm.dd" |
或者
控制面板—— 区域和语言设置——自定义——日期——短日期格式设置成需要的模式，如：YYYY.MM.DD
1 | txtSQL = "s elect * fromCancelCard_Info where Date<='" & 结束日期 & "'" &"and date>='" & 开始日期 & "'" |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 = "s elect * f rom CancelCard_Info where Date<='" & EndDate & "'" & "and date>='" & StartDate & "'" 'txtSQL = "s elect * f rom 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 |
VB不难，只要不断的练习，温故而知新即可。
交易额: 241.54万元
无 |江苏省 |南京市 |建邺区
交易额: 186.79万元
无 |河南省 |洛阳市 |洛龙区
交易额: 151.77万元
工作室 |浙江省 |台州市 |玉环县
交易额: 128.29万元
公司 |广东省 |深圳市 |南山区
成为一品威客服务商，百万订单等您来有奖注册中
价格是多少？怎样找到合适的人才？
￥500 已有2人投标
￥1800 已有1人投标
￥300 已有3人投标
￥550 已有1人投标
￥340 已有6人投标
￥4000 已有1人投标
￥150 已有0人投标
￥2500 已有1人投标
企业QQ
智能客服
