Dim Tbl As Table = Tables("外汇牌价分析表") For i As Integer = 1 To R.Length-1 Dim TmpRow As Row = Tbl.AddNew For j As Integer = 0 To R(i).Cells.Length - 1 TmpRow(Tbl.Cols(j).Name) = R(i).Cells(j).innerText Next Next Tbl.AutoSizeCols .quit End With StatusBar.Message1=" 采集完成 "
加好友 
发短信
Post By：2015/1/11 6:15:00 [显示全部帖子]
