双击日历控件和列表框状态已解决，日期比较怎么弄！

jsenchina · 发表于 2010-11-12 11:02

1、在查询窗体中双击日期文本框弹出日历控件窗体，选择日期后填入文本框，我写的不对，不能输入正确日期，大侠们帮忙改下代码！
2、怎么限制日期文本框不能用键盘输入，只能通过日期选择窗体输入。
3、选项按钮选择后激活当前对应的文本框，其他的文本框处于不可用状态，代码怎么添加？
以上三个问题已全部解决，见附件的销售查询按钮项，但最后有个小问题，我想加入起始日期和截止日期比较，搞不通！！

下面我自己写的代码，不对！帮忙改一下！

Private Sub Calendar1_Click()
If CLng(Calendar1.Value) >= (销售查询窗口.TextBox1.Value) Then
  销售查询窗口.TextBox2 = Format(Calendar1.Value, "yyyy年m月d日")
  Else
  MsgBox "截止日期小于起始日期!"
  End If
Unload Me
End Sub

[ 本帖最后由 jsenchina 于 2010-11-12 16:42 编辑 ]

flhgtgssxf · 发表于 2010-11-12 11:30

我是03的，打不开附件

jsenchina · 发表于 2010-11-12 11:49

原帖由 flhgtgssxf 于 2010-11-12 11:30 发表
我是03的，打不开附件

我补传了一个2003的附件了

jsenchina · 发表于 2010-11-12 13:26

第三个问题已经瞎猫撞死耗子自己写出来了，代码是复杂了点，一会把例子放上来！
表格才开始设计，例子在销售查询按钮，也只有销售查询按钮有效！！

[ 本帖最后由 jsenchina 于 2010-11-12 13:43 编辑 ]

flhgtgssxf · 发表于 2010-11-12 14:35

试试吧，用的是DTP控件，第三个问题改了下代码，差不多

jsenchina · 发表于 2010-11-12 14:57

原帖由 flhgtgssxf 于 2010-11-12 14:35 发表
试试吧，用的是DTP控件，第三个问题改了下代码，差不多

谢谢哦，可是运行出错，找不到工程或库，下面是错误代码段！
Private Sub 按日期查询选项按钮_Click()
' If 按日期查询选项按钮.Value = True Then
For i = 1 To 6

flhgtgssxf · 发表于 2010-11-12 16:13

原帖由 jsenchina 于 2010-11-12 14:57 发表

谢谢哦，可是运行出错，找不到工程或库，下面是错误代码段！
Private Sub 按日期查询选项按钮_Click()
' If 按日期查询选项按钮.Value = True Then
For i = 1 To 6

可能你没有注册控件，试试再说

jsenchina · 发表于 2010-11-12 16:44

原帖由 flhgtgssxf 于 2010-11-12 16:13 发表

可能你没有注册控件，试试再说

已经用我自己原来的思路解决

谢谢

meishayongle · 发表于 2014-12-2 16:00

以后还得加强学习

		自动登录	找回密码
密码			免费注册

[2007] 双击日历控件和列表框状态已解决，日期比较怎么弄！