以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗体表，按钮筛选超过10天的行，显示条数，并加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50965)
--  作者：zerov
--  发布时间：2014/5/15 22:56:00
--  窗体表，按钮筛选超过10天的行，显示条数，并加载
一个窗体表，通过button1按钮，单击后，能自动从表中筛选“日期”比当前超过10天的行，并弹出窗口，提示共有几行，再加载这些，下列代码，提示错误，请高人看看。

Dim t As Table = e.Form.Controls("gx").Table
Dim d2 As Date =Date.Today
Dim dr As DataRow In t.DataTable.DataRows ‘这一句提示错误
If dr.IsNull("日期") Then
    Return
Else
    Dim tp As TimeSpan = d2 - dr("日期") 
    Dim rq As Integer = tp.TotalDays  ’算出日期数
    If rq > 10 Then
        MessageBox.Show("共有??条10日内未更新项目")
  t.datatable.load \'加载超过10天的行，不知对不对
    End If
End If
--  作者：有点甜
--  发布时间：2014/5/15 23:07:00
--  

 一塌糊涂

 

Dim t As Table = e.Form.Controls("gx").Table
Dim r As Row = t.Current

If r.IsNull("日期") Then
    Return
Else
    Dim d As Date = dr("日期").adddays(10)
    Dim filter As String = "日期 >= #" & d & "#"
    Dim count As Integer = t.DataTable.SQLCompute("count(_Identify)", fitler)
    msgbox(count)
    t.DataTable.LoadFilter = filter
    t.DataTable.load
End If
--  作者：zerov
--  发布时间：2014/5/15 23:19:00
--  回复：（有点甜） 一塌糊涂 Dim t As T...
谢谢甜大师，确实刚入门，不懂，还请多指教。

row为会是=t.current（当前行）而不是此表所有表呢，因为要算这个所有行的日期列的值，与登录日期是不是超过10天。

另外，此表没有__Identify列，怎么办？
--  作者：逛逛
--  发布时间：2014/5/16 7:53:00
--  

第一个问题：取消当前行和当前行的判断，直接用当前的系统时间减去10天来做条件

 

 

第二个问题：可以随便换一个数据列的名字。
--  作者：有点甜
--  发布时间：2014/5/16 9:41:00
--  

 回复3楼，理解不了你的意思。

 

 请上传例子，说明要达到的功能。