以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载数据前先判断数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76552)
--  作者：ljh29206
--  发布时间：2015/10/31 15:51:00
--  加载数据前先判断数据
Vars("lastrow") = DataTables("日程明细").Compute("max(_Identify)")
vars("rwts") = Tables("信息查阅情况").Compute("max(_Identify)")
\'重新加载
DataTables("日程明细").LoadFilter =""
DataTables("日程明细").Load
Dim drs As List(Of DataRow)
drs = DataTables("日程明细").Select("_Identify > \'" & Vars("lastrow") & "\'")
Dim a As Integer
Dim str As String
Dim strd As String
For Each dr As DataRow In drs
    If dr("参与者") Like "*" & Vars("user") & "*" Then 
    Dim t1 As Date = CDate(dr("开始时间"))
    Dim t2 As Date = CDate(dr("结束时间"))
  \' 向 阅览表追加数据
    Dim drp As Row = Tables("信息查阅情况").AddNew
    drp("表名") = "日程明细"
    drp("标题") = dr("标题")
    drp("列号") = dr("_Identify")
    drp("人名") = Vars("user")
    End If 
Next

老师我想先判断数据 在进行加载
如果我不加载数据的情况下， 先做以下数据提取 该怎么写？
drs = DataTables("日程明细").Select("_Identify > \'" & Vars("lastrow") & "\'")
--  作者：Hyphen
--  发布时间：2015/10/31 16:28:00
--  

SQLSelect

 

http://www.foxtable.com/help/topics/2900.htm