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


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

主题：定期删除30天前文件
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：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


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：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


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：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


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：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


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 5 次数据查询