主题：[求助]如何应用Foxtable实现网络数据导入更新？

其实你自己都写好了啊：

Dim ObjIE As Object = CreateObject("InternetExplorer.Application")
Dim Tbl As Table = Tables("表A")
Dim R As Row
'Tbl.DataTable.DataRows.Clear
StatusBar.Message1 = "正在前往网页..."
ObjIE.Navigate("http://video.shishicai.cn/haoma/cqssc/list/120.aspx")
Do Until ObjIE.ReadyState = 4
    Application.Doevents
Loop
Dim Dom As Object = ObjIE.Document
Dim HTMLTbl As Object = Dom.GetElementById("bonusNumberData")
If HTMLTbl IsNot dbnull.value Then
    Dim RowCnt As Integer = HTMLTbl.Rows.Length
    'Tbl.StopRedraw     '取消注释此行以提高效率
    For i As Integer = 0 To RowCnt - 1
        R = Tbl.AddNew
        R("第一列") = HTMLTbl.Rows(i).Cells(0).InnerText
        R("第二列") = HTMLTbl.Rows(i).Cells(1).InnerText
        R("第三列") = HTMLTbl.Rows(i).Cells(2).InnerText
        StatusBar.Message1 = "正在获取第 " & i + 1 & "/" & RowCnt & "行数据..."
    Next
    'Tbl.ResumeRedraw     '取消注释此行以提高效率
    StatusBar.Message1 = "数据获取完成..."
    ObjIE.Quit
    Msgbox("OK")
    StatusBar.Reset
Else
   StatusBar.Message1 = "获取数据失败"
End If