以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [请教] 提醒新纪录代码那里有错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57497)
--  作者：bahamute
--  发布时间：2014/9/25 16:12:00
--  [请教] 提醒新纪录代码那里有错？

以下代码用于单击登陆按钮后，判断上次登陆后至今增加的新纪录，调试到messagebox.Show(n)这句，程序就挂了（之前的语句没问题），也没有任何提示，只能强退，不知何故，请指教！


Dim n As Integer

n = GetConfigValue("最后_Identify", "")

Dim id As Integer = DataTables("收款明细记录").Compute("Max(_Identify)")

SaveConfigValue("最新_Identify", id)

Dim m As Integer

m = id-n      

messagebox.Show(n)         

messagebox.Show(id)

If m > 0 Then

    Forms("收付款提醒弹窗").Open

End If
--  作者：有点甜
--  发布时间：2014/9/25 16:16:00
--  
 不可能，例子发上来。