以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  定期删除30天前文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130918)
--  作者：zoyong
--  发布时间：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
--  作者：zoyong
--  发布时间：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、看不懂你的问题，做个例子说明你要做什么。
--  作者：zoyong
--  发布时间：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

 
--  作者：zoyong
--  发布时间：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
--  

 

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

 
--  作者：zoyong
--  发布时间：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