Foxtable(狐表)用户栏目专家坐堂 → 怎么让表格每天自动增加一行?


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

主题:怎么让表格每天自动增加一行?

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


加好友 发短信
等级:幼狐 帖子:162 积分:1083 威望:0 精华:0 注册:2020/1/16 11:58:00
  发帖心情 Post By:2020/10/8 15:54:00 [显示全部帖子]

Dim fdr As DataRow
fdr = DataTables("进货退货").sqlfind("日期=#" & Date.Today & "# And 店名账号= '" & User.name & "'"  )
If fdr Is Nothing Then
    fdr = DataTables("进货退货").addnew
    fdr("日期") = Date.Today
    fdr("店名账号") = User.name
    fdr("对账品名") = "linle"
    fdr.save
End If

 回到顶部