主题：关于Syscmd.Table.MergeFromText()

系统命令做不到。

用代码 http://www.foxtable.com/help/topics/2629.htm

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("r1").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
        Dim cs() As String = rs(i).Split(",")
        If cs.Length >= 8 Then
            Dim dr As DataRow = DataTables("r1").Addnew()
            dr("时间") = cs(0)
            dr("A股板块") = cs(1)
            dr("代码") = cs(2)
            dr("昨收") = cs(3)
            dr("开盘") = cs(4)
            dr("最高") = cs(5)
            dr("最低") = cs(6)
            dr("成交") = cs(7)
        End If

    Next
   
End If
Tables("r1").ResumeRedraw