专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
  Private Sub Command1_Click   WebBrowser1.Navigate "http://localhost/"   Timer1.Enabled = TrueEnd Sub   Private Sub Timer1_Timer   Dim doc, objhtml As Object   Dim i As Integer   Dim strhtml As String      If Not WebBrowser1.Busy Then   Set doc = WebBrowser1.Document   i = 0 [阅读全文] [PDF]
VB中,我们使用 _disibledevent= rs(FieldName).Value End IfEnd Sub===================================  测试结果:  无错误时  ReadFieldsOnErr : 0。46  ReadFieldsNotOnErr : 0。47  有错误时  ReadFieldsOnErr : 0.96  ReadFieldsNotOnErr : 0.47  可以看到:不使用错误处理,速度相当稳定,而使用错误处理时,有错误的情况下速度落差较大。所以 对于在循环中 频繁调用 的子过程,建 [阅读全文] [PDF]
1 共2条 分1页