以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]模拟点击控件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159559)

--  作者：huaziqiao1976 --  发布时间：2020/12/30 13:42:00 --  [求助]模拟点击控件 按照例子做了一个模拟点击控件（Button4）的代码，但是到第3页会停止点击，手动点击（Button4）到第10页后又能模拟点击控件到最后一页，请蓝版看一下是哪出问题 With DataTables("信息比对")     If .LoadPage < .TotalPages - 1 Then         .LoadPage = .LoadPage + 1         .Load()         e.Form.Controls("TextBox2").Value = (.LoadPage + 1)         e.Form.Controls("TextBox1").Value = .TotalPages     End If End With 筛选代码略 If  e.Form.Controls("TextBox1").Value = e.Form.Controls("TextBox2").Value Then      MessageBox.show("比对完毕")     Return Else     If e.Form.Controls("TextBox1").Value >＝ e.Form.Controls("TextBox2").Value Then         e.Form.Controls("Button4").PerformClick()         \'MessageBox.show("比对完毕")         Return     End If End If

--  作者：有点蓝 --  发布时间：2020/12/30 13:51:00 --   请提供实例测试

--  作者：huaziqiao1976 --  发布时间：2020/12/30 15:55:00 --   可以了，我把TextBox改成NumericComboBox就可以全部点击完成