- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]设置多个日期列中有今天日期条件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188416)
-- 发布时间：2023/9/19 15:44:00
-- [求助]设置多个日期列中有今天日期条件
Dim t As DataTable = DataTables("核算项目科目组合表")
For Each dr As DataRow In t.DataRows
Dim Val1 As Date = dr("应收账款更新日期")
Dim Val2 As Date = dr("应交税费更新日期")
Dim Val3 As Date = dr("内部往来更新日期")
Dim Val4 As Date = dr("工程施工更新日期")
Dim Val5 As Date = dr("损益更新日期")
Dim Val6 As Date = dr("应付账款更新日期")
Dim cmd As New SQLCommand
Dim dts As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dts = cmd.ExecuteScalar()
If dts In (Val1, Val2, Val3, Val4, Val5, Val6) Then
dr("更新记录_更新日期") = dts
dr("变动状态") = "变动"
Else
dr("变动状态") = Nothing
End If
Next
老师上面代码是在一行中我多个日期列，如果其中至少有一列日期是今天，那么执行，否则变动状态列为空值。出错了，应该怎么写？
谢谢老师！
[此贴子已经被作者于2023/9/19 15:47:10编辑过]
-- 发布时间：2023/9/19 15:59:00
--
老师是不是可以这样写：
If dts = Val1 or dts = Val2 or dts = Val3 or dts = Val4 or dts = Val5 or dts = Val6 Then
-- 发布时间：2023/9/19 16:07:00
--
就是2楼的用法，代码没有in这种用法。
另外or改为orelse，至于2者区别自行看看帮助里的编程基础
-- 发布时间：2023/9/19 18:51:00
--
谢谢老师，已解决！