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

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

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

这样也有一定作用，但是间隔很长时间，再次点击，也能新增行，就不像双击了。