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

If TryConnectHost("192.168.44.100") Then

If Forms("会议_修改").Opened OrElse Forms("会议_增加").opened OrElse Forms("日程_修改").Opened OrElse Forms("日程_增加").opened Then

Else

If DataTables("日程明细").Compute("max(_Identify)") > 0 Then

Vars("lastrow") = DataTables("日程明细").Compute("max(_Identify)")

End If

\'重新加载

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("发起者") <> Vars("user") AndAlso dr("参与者") Like "*" & Vars("user") & "*" Then

\' 向阅览表追加数据

Dim drp As Row = Tables("信息查阅情况").AddNew

drp("表名") = "日程明细"

drp("标题") = dr("标题")

drp("列号") = dr("_Identify")

drp("人名") = Vars("user")

End If

DataTables("信息查阅情况").Save

Dim drrcmx As DataRow = DataTables("tbfcpclist").Find("username = \'" & Vars("user") & "\'")

If drrcmx IsNot Nothing Then

drrcmx("日程明细") = DataTables("日程明细").Compute("max(_Identify)")

Vars("lastrow") = DataTables("日程明细").Compute("max(_Identify)")

drrcmx.Save

End If

\'\'\'

Dim drzt As DataRow = DataTables("信息查阅情况").Find("状态 = 0")

If drzt IsNot Nothing Then

Dim f As WinForm.Form = Forms("任务提醒")

f.Open

End If