Foxtable(狐表)用户栏目专家坐堂 → [请教] 提醒新纪录代码那里有错?


  共有2546人关注过本帖树形打印复制链接

主题:[请教] 提醒新纪录代码那里有错?

帅哥哟,离线,有人找我吗?
bahamute
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
[请教] 提醒新纪录代码那里有错?  发帖心情 Post By: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


 回到顶部