社区
VB基础类
帖子详情
DTPicker1问题!
moleboy
2003-08-31 10:24:31
DTPicker1
其中属性设为
格式 3-DtpCustom
自定义格式 yyyy年MM月
选中 “上下”选择项
显示为 2003年8月
当我要更改月份8 时点击上下按钮每当遇到 2 4 6 9 11 时,都无法正常显示
显示为 2003年■月
其中月份无法显示!
请问如何解决!
...全文
55
1
打赏
收藏
DTPicker1问题!
DTPicker1 其中属性设为 格式 3-DtpCustom 自定义格式 yyyy年MM月 选中 “上下”选择项 显示为 2003年8月 当我要更改月份8 时点击上下按钮每当遇到 2 4 6 9 11 时,都无法正常显示 显示为 2003年■月 其中月份无法显示! 请问如何解决!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
goodname008
2003-08-31
打赏
举报
回复
' 主要是它的默认日期是最大值31号,在窗体加载时把它的日期改成1就行了.
Option Explicit
Private Sub Form_Load()
DTPicker1.Day = 1
End Sub
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(
DT
Picker
1.Value) + Chr(35) + "and " + Chr(35) + Str(
DT
Picker
2.Value) + Chr(35) + "order by 日期"
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(
DT
Picker
1.Value) + Chr(35) + "and " + Chr(35) + Str(
DT
Picker
2.Value) + Chr(35) + "order by 日期" Adodc1.Refresh lblCount = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("数量")) lblS1 = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("金额")) lblS2 = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("利润"))
VB不能加载控件许可证未找到解决方案
VB不能加载控件许可证未找到解决方案,修复了 Visual Basic 6.0 中的许可证
问题
Office补丁解决“由于控件不能创建,不能退出设计模式”
打开stm32的时钟配置STM32F4xx_Clock_Configuration_V1.1.0.xls文件,提示不能创建label1,不能退出设计模式,无法使用时钟配置功能,后发现是office补丁
问题
,安装后解决。附件为office2007和office2010对应补丁。
汽车维修企业管理系统
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If Text4.Text = "" Then MsgBox "驾驶证号不能为空!!", , "车辆管理系统" Text4.SetFocus End If
DT
Picker
2.SetFocus End If End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回车键Combo1获得焦点 End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text8.SetFocus '按回车键Combo1获得焦点 End Sub
VB 定时网络共享.rar
VB 定时网络共享,定时网络共享设置,同样将事件定义在按钮中,用户单击按钮后执行以下代码: Private Sub Command1_Click() Timer1.Interval = 300 '开启计时器 MsgBox "共享控制已经设置完毕!" End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timer() Dim R If Time =
DT
Picker
1 Then '根据时间设置共享 R = Shell("cmd.exe /c net share 共享c=c:") '共享C盘 R = Shell("cmd.exe /c net share temp=c:\temp") '共享C盘临时文件夹 R = Shell("cmd.exe /c net share 共享d=d:") '共享D盘 R = Shell("cmd.exe /c net share 共享e=e:") '共享E盘 End If If Time =
DT
Picker
2 Then '根据时间删除共享 R = Shell("cmd.exe /c net share 共享c /delete") '删除共享C盘 R = Shell("cmd.exe /c net share temp /delete") '删除共享C盘临时文件夹 R = Shell("cmd.exe /c net share 共享d /delete") '删除共D盘 R = Shell("cmd.exe /c net share 共享e /delete") '删除共享E盘 Timer1.Interval = 0 End If End Sub
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章