Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无法在 System.DateTime 和 System.String 上执行“=”操作


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

主题：无法在 System.DateTime 和 System.String 上执行“=”操作
帅哥哟，离线，有人找我吗？
zhchling
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：4221 威望：0 精华：0 注册：2012/2/9 20:09:00 		无法在 System.DateTime 和 System.String 上执行“=”操作  发帖心情 Post By：2025/1/26 10:20:00 [只看该作者]

图片点击可在新窗口打开查看







Dim dt As Date
dt = e.Form.Controls("DateTimePicker1").Value

If e.Form.Controls("CheckBox_quxiao").Checked Then 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =' " & dt & "'"
Else 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =' " & dt & "'  And ([状态] <> '取消' or  [状态] Is Null) "
End If

Tables("客户及订单_table_dingdan").sort = "产品,酒店 DESC"
Dim todaybeizhu As String
todaybeizhu = e.Form.Controls("DateTimePicker1").Value & "，总人数：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "") & "人，关外：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '关外'") & _
"人，镇上外店：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 <> '自驾' and 酒店 <> '关外'  and 酒店 <> '皇冠'  and 酒店 <> '蓝景'  and 酒店 <> '希尔顿'and 酒店 <> '黄松浦' and 酒店 <> '山门' and 酒店 <> '半山'   ") & _
"人，山门：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '皇冠' or 酒店 = '蓝景' or 酒店 = '希尔顿'  or 酒店 = '黄松浦' or 酒店 = '山门'  or 酒店 = '半山' ") & _
"人，自驾：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '自驾'") & _
"人，其他：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 is null ")

e.Form.Controls("TextBox4").value = todaybeizhu

Dim dr As DataRow
dr = DataTables("日汇总表").Find("[日期] = '" & e.Form.Controls("DateTimePicker1").Value & "'", "日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("日汇总表").FindRow(dr)
    If wz >= 0 Then
        Tables("日汇总表").Position = wz
    End If
Else

    Tables("日汇总表").AddNew
    Tables("日汇总表").current("日期") = e.Form.Controls("DateTimePicker1").Value
      Tables("日汇总表").current("当日备注") = todaybeizhu '

End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

日期值有多余的空格去掉：

If e.Form.Controls("CheckBox_quxiao").Checked Then 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =' " & dt & "'"
Else 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =' " & dt & "'  And ([状态] <> '取消' or  [状态] Is Null) "
End If

调试对比看看就明白了
msgbox("[日期] ='" & dt & "'")
msgbox("[日期] =' " & dt & "'")

另外，筛选日期值最好使用#符号
If e.Form.Controls("CheckBox_quxiao").Checked Then 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =#" & dt & "#"
Else 
    Tables("客户及订单_table_dingdan").Filter = "[日期] =#" & dt & "#  And ([状态] <> '取消' or  [状态] Is Null) "
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zhchling
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：4221 威望：0 精华：0 注册：2012/2/9 20:09:00 		  发帖心情 Post By：2025/1/26 10:47:00 [只看该作者]


可能是窗口load时， e.Form.Controls("DateTimePicker1").Value是空值。

-----------------------------------------------------------------
改成 # 的代码，提示以下错误。

.NET Framework 版本：4.0.30319.233
Foxtable 版本：2025.1.3.1
错误所在事件：窗口,客户及订单,DateTimePicker1,ValueChanged
详细错误信息：
表达式包含无效的日期常量“##”。
---------------------------------------------------------------------
如果是 ‘  ，就提示之前的那种错误。

.NET Framework 版本：4.0.30319.233
Foxtable 版本：2025.1.3.1
错误所在事件：窗口,客户及订单,DateTimePicker1,ValueChanged
详细错误信息：
无法在 System.DateTime 和 System.String 上执行“=”操作。


---------------------------------------------------------------------

去掉空格，也是提示出错。
------------------------------------------------



Dim dt As Date
dt = e.Form.Controls("DateTimePicker1").Value

If e.Form.Controls("CheckBox_quxiao").Checked Then 
    Tables("客户及订单_table_dingdan").Filter = "[日期]=#" & dt & "#"
Else 
    Tables("客户及订单_table_dingdan").Filter = "[日期]=#" & dt & "#  And ([状态] <> '取消' or  [状态] Is Null) "
End If

Tables("客户及订单_table_dingdan").sort = "产品,酒店 DESC"
Dim todaybeizhu As String
todaybeizhu = e.Form.Controls("DateTimePicker1").Value & "，总人数：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "") & "人，关外：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '关外'") & _
"人，镇上外店：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 <> '自驾' and 酒店 <> '关外'  and 酒店 <> '皇冠'  and 酒店 <> '蓝景'  and 酒店 <> '希尔顿'and 酒店 <> '黄松浦' and 酒店 <> '山门' and 酒店 <> '半山'   ") & _
"人，山门：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '皇冠' or 酒店 = '蓝景' or 酒店 = '希尔顿'  or 酒店 = '黄松浦' or 酒店 = '山门'  or 酒店 = '半山' ") & _
"人，自驾：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 = '自驾'") & _
"人，其他：" & Tables("客户及订单_table_dingdan").Compute("Sum(人数)", "酒店 is null ")

e.Form.Controls("TextBox4").value = todaybeizhu

Dim dr As DataRow
dr = DataTables("日汇总表").Find("[日期]=#" & e.Form.Controls("DateTimePicker1").Value & "#", "日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("日汇总表").FindRow(dr)
    If wz >= 0 Then
        Tables("日汇总表").Position = wz
    End If
Else

    Tables("日汇总表").AddNew
    Tables("日汇总表").current("日期") = e.Form.Controls("DateTimePicker1").Value
      Tables("日汇总表").current("当日备注") = todaybeizhu '

End If
[此贴子已经被作者于2025/1/26 10:49:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那就判断一下

Dim dt As Date
dt = e.Form.Controls("DateTimePicker1").Value
If dt <> Nothing Then
其它代码
Else
    MsgBox("没有选择日期")
End If 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04639 秒, 4 次数据查询