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


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

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

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
定期删除30天前文件  发帖心情 Post By:2019/2/11 18:51:00 [只看该作者]

For Each File As String In FileSys.GetFiles(ProjectPath & "下载文件\")
    Dim sp As TimeSpan = Date.Now - file.CreationTime
    If sp.TotalDays>="30"  Then '删除30天前文件
        FileSys.DeleteFile(file)
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/12 15:47:00 [只看该作者]

'加载外部数据
Dim c md As New SQ LCommand
c md.Conn ecti
c md.Com mandText ="s elect * from {SYS_记录窗口}"
vars("记录窗口") = cm d.E xecuteReader(True)

提取变量数值到记录窗口中,怎么附值 

'记录窗口
Dim dr As DataRow = vars("记录窗口").Find("行号='19'")
If dr IsNot Nothing Then
    Dim rd As String = "记录窗口值"
    'Dim dry() As String = {"代码","行号","记录窗口值"}
    Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
    rgd.Table = Tables(e.Form.name & "_Table1")
    rgd.Columns = rd
    rgd.Build()
End If

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


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

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

 

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

 

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


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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/13 17:23:00 [只看该作者]

'获取数据行保存到变量
Dim r As Row=Tables(eform.name & "_Table1").current
If r IsNot Nothing Then
    Vars("投标通知") = r("立项编号")
Else
    MessageBox.Show("请选择要发送的项目名称","提示",MessageBoxButtons.Ok,MessageBoxIcon.Error)
    Return ""
End If
Forms("投标通知").open


.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2018.10.9.1
错误所在事件:自定义函数Translate_TableMenu
详细错误信息:
调用的目标发生了异常。
值类型与列类型不匹配不能在 投标通知 列中存储 <lx201901017>。所需类型是 DataRow。
值类型与列类型不匹配


想把红色的值保存到变量   或者    当前行保存到变量
[此贴子已经被作者于2019/2/13 17:25:40编辑过]

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


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

 

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

 


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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/13 18:20:00 [只看该作者]

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")    ‘记录窗口
rgd.Table = Tables(vars("投标通知"))   '绑定表
rgd.Build()

记录窗口附值失败

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


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

 

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

 


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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/14 13:34:00 [只看该作者]

附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


获取当前行的值填入到记录窗口


[此贴子已经被作者于2019/2/14 13:35:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
总数 20 1 2 下一页