- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 定期删除30天前文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130918)
-- 发布时间：2019/2/11 18:51:00
-- 定期删除30天前文件
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
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2019/2/12 16:01:00
--
1、记录窗口，是必须绑定表格后，才能使用的；
2、给记录窗口赋值，实际就是给表格当前行赋值；
3、看不懂你的问题，做个例子说明你要做什么。
-- 发布时间：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编辑过]
-- 发布时间：2019/2/13 17:57:00
--
Vars("投标通知") = r.datarow
-- 发布时间：2019/2/13 18:20:00
--
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1") ‘记录窗口
rgd.Table = Tables(vars("投标通知")) \'绑定表
rgd.Build()
记录窗口附值失败
-- 发布时间：2019/2/13 22:51:00
--
没看懂你要做什么，请做一个具体的实例发上来测试。
-- 发布时间：2019/2/14 13:34:00
--
附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
获取当前行的值填入到记录窗口
[此贴子已经被作者于2019/2/14 13:35:19编辑过]
-- 发布时间：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