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


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

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

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


加好友 发短信
等级:幼狐 帖子:136 积分:1723 威望: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编辑过]

 回到顶部