Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何清空日期数据

1楼
1234567 发表于: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楼
有点蓝 发表于:2025/2/8 10:46:00
这个代码我测试没有问题。

控件valuechanged事件有其它代码?
3楼
1234567 发表于: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楼
有点蓝 发表于: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编辑过]
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01758 s, 2 queries.