如何给”截止日期“字段赋值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何给”截止日期“字段赋值？

共有3189人关注过本帖树形打印复制链接主题：如何给”截止日期“字段赋值？

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/1 22:59:00 [只看该作者]

代码问题，你自己写错了。

ahbrq

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：314 积分：2412 威望：0 精华：0 注册：2013/9/29 20:41:00

Post By：2016/3/5 19:45:00 [只看该作者]

运行一下代码：

'输入截至日期
Dim Val As Date = Date.Today
If InputValue(Val, "筛选","请输入导入数据的截至日期:") Then
Output.Show(Val)
End If

'删除与并入数据同年的记录
Dim y As Integer = Val.year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As Date = dt1.AddYears(1)
Dim Filter1 As String = "截至日期 >= #" & dt1 & "# And 截至日期 < #" & dt2 & "#"
DataTables("储蓄积分").DeleteFor(Filter1)

出现这样的错误：

该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。

什么原因？