Foxtable(狐表)用户栏目专家坐堂 → 定期删除30天前文件


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

主题:定期删除30天前文件

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/11 18:58:00 [显示全部帖子]

 Dim dir As new io.DirectoryInfo("d:\")
For Each File As object In dir.GetFiles
    Dim sp As TimeSpan = Date.Now - cdate(file.CreationTime)
    If sp.TotalDays>="30"  Then '删除30天前文件
        msgbox(file.name)
        'file.delete
    End If
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 16:01:00 [显示全部帖子]

1、记录窗口,是必须绑定表格后,才能使用的;

 

2、给记录窗口赋值,实际就是给表格当前行赋值;

 

3、看不懂你的问题,做个例子说明你要做什么。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/13 17:57:00 [显示全部帖子]

 

Vars("投标通知") = r.datarow

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/13 22:51:00 [显示全部帖子]

 

没看懂你要做什么,请做一个具体的实例发上来测试。

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/14 15:01:00 [显示全部帖子]

比如

 

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("表A")
rgd.Build()

 

http://www.foxtable.com/webhelp/scr/2456.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/15 10:18:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/15 11:42:00 [显示全部帖子]

1、直接绑定成副本表

 

http://www.foxtable.com/webhelp/scr/1909.htm

 

2、读取表列,参考

 

http://www.foxtable.com/webhelp/scr/0561.htm

 


 回到顶部