这个错误很奇怪，有时有 有时没？ 求助原因
此主题相关图片如下：无标题.png
代码如下
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
Next
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
End If
End If
加好友 
发短信
Post By：2015/12/2 8:52:00 [显示全部帖子]
