主题：[分享] 按钮双击────防止连续单击的误操作

 使用时间控制么？瞧瞧。不就是几句简单的代码么？

static ltime As Date = Date.Now
Dim sp As TimeSpan = Date.Now - ltime

If sp.TotalSeconds > 1 Then
    Tables("表a").AddNew
    ltime = Date.Now
End If