Foxtable(狐表)用户栏目专家坐堂 → [求助]判段表中日期列是否含当天日期时,出错


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

主题:[求助]判段表中日期列是否含当天日期时,出错

帅哥哟,离线,有人找我吗?
yjm789000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1711 威望:0 精华:0 注册:2016/7/18 20:17:00
[求助]判段表中日期列是否含当天日期时,出错  发帖心情 Post By:2018/11/17 21:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:tim图片20181117212736.png
图片点击可在新窗口打开查看

With Tables("彩piao数据")
    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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/18 22:08:00 [只看该作者]

改成

 

With Tables("彩piao数据")
    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


 回到顶部