- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]判段表中日期列是否含当天日期时，出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127604)
-- 发布时间：2018/11/17 21:31:00
-- [求助]判段表中日期列是否含当天日期时，出错
此主题相关图片如下：tim图片20181117212736.png
With Tables("彩票数据")
Dim r As Integer
r = .Find( date.today,.RowSel + 1, "日期", False, False, True)
If r < 0 Then \'如果找到符合条件的行
Functions.Execute("增加当天期数")
Functions.Execute("增加5星胆当天期号")
For Each dt As DataTable In DataTables
dt.Save()
Next
End If
End With
[此贴子已经被作者于2018/11/17 21:32:01编辑过]
-- 发布时间：2018/11/18 22:08:00
--
改成
With Tables("彩票数据")
Dim r As Integer
r = .findrow("日期 = #" & Date.Today & "#")
If r < 0 Then \'如果找到符合条件的行
Functions.Execute("增加当天期数")
Functions.Execute("增加5星胆当天期号")
For Each dt As DataTable In DataTables
dt.Save()
Next
End If
End With