共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]设置多个日期列中有今天日期条件
1楼
沪上游客 发表于：2023/9/19 15:44:00Dim 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编辑过]
2楼
沪上游客 发表于：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
3楼
有点蓝 发表于：2023/9/19 16:07:00就是2楼的用法，代码没有in这种用法。
另外or改为orelse，至于2者区别自行看看帮助里的编程基础
4楼
沪上游客 发表于：2023/9/19 18:51:00谢谢老师，已解决！
共4 条记录, 每页显示 10 条, 页签:
[1]