Foxtable(狐表)用户栏目专家坐堂 → 如何清空日期数据


  共有177人关注过本帖树形打印复制链接

主题:如何清空日期数据

帅哥哟,离线,有人找我吗?
1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:850 积分:6650 威望:0 精华:0 注册:2013/2/18 17:46:00
如何清空日期数据  发帖心情 Post By:2025/2/8 10:35:00 [只看该作者]

e.Form.Controls("DateTimePicker1").Text = Nothing

 

.NET Framework 版本:4.0.30319.1
Foxtable 版本:2024.11.1.1
错误所在事件:
详细错误信息:
The expression contains invalid date constant '## '.


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112355 积分:572031 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/8 10:46:00 [只看该作者]

这个代码我测试没有问题。

控件valuechanged事件有其它代码?

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:850 积分:6650 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2025/2/8 12:27:00 [只看该作者]

控件Button1的Click事件代码

e.Form.Controls("DropBox1").Text = Nothing
e.Form.Controls("DateTimePicker1").Text = Nothing
e.Form.Controls("TextBox1").Text = Nothing

Tables("待加工查询_Table1").Filter = ""

 

 

DateTimePicker1的ValueChanged事件代码

Dim Filter As String
Dim ymd1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
If ymd1 IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "任务单.计划完成日期 <= #" & ymd1.value & "# "
End If
If Filter > "" Then
    Tables("待加工查询_Table1").Filter = Filter
End If

[此贴子已经被作者于2025/2/8 12:34:19编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112355 积分:572031 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/8 13:28:00 [只看该作者]

If ymd1 IsNot Nothing Then
改为
If ymd1.value IsNot Nothing Then
或者
If ymd1.value <> Nothing Then
[此贴子已经被作者于2025/2/8 13:28:18编辑过]

 回到顶部