以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  读秒控制 按钮再次按下的按钮必须超过1秒  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141704)

--  作者：yifan3429 --  发布时间：2019/10/9 9:56:00 --  读秒控制 按钮再次按下的按钮必须超过1秒  Dim r As Row = Tables("顶级产品库").AddNew()         Dim dr As Row = Tables("产品库").Current         r("系列ID") = dr("系列ID")         r("产品系列") = dr("产品系列")         r("产品ID") = "PD" & Format(Date.Now,"yyMMdd-HHmmss")         Tables("顶级产品库").Current.Save()

--  作者：狐狸爸爸 --  发布时间：2019/10/9 10:05:00 --   可以看看： http://www.foxtable.com/webhelp/topics/1061.htm 很简单： Static dt As date if (Date.Now- dt).TotalSeconds >=1 Then    dt = Date.Now Else    Messagebox.show("要间隔1秒")    return End If 原来的代码 [此贴子已经被作者于2019/10/9 10:08:44编辑过]