加载数据前先判断数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

老师我想先判断数据在进行加载

如果我不加载数据的情况下，先做以下数据提取该怎么写？

drs = DataTables("日程明细").Select("_Identify > '" & Vars("lastrow") & "'")

主题：加载数据前先判断数据