主题：提示 一般性网络错误

If TryConnectHost("192.168.44.100") Then

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

    Else

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

        '重新加载

        DataTables("日程明细").LoadFilter =""

        DataTables("日程明细").Load

    endif

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

        If drrcmx IsNot Nothing Then

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

            drrcmx.Save

        End If

endif