MainTable = Tables("股piao信息明细表")
'e.Sender.Enabled = False
Tables("股piao信息明细表").StopRedraw()
Dim dlg As New OpenFileDialog
dlg.Filter = "TXT文件|*.TXT"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then
Dim dt As DataTable = DataTables("股piao信息明细表")
For Each file As String In dlg.FileNames
Dim strs As String = FileSys.ReadAllText(file)
strs = strs.Trim().Replace(" ", ",").Replace(vblf,"")
Dim name As String = FileSys.GetName(file.SubString(0, file.length - 4))
Dim rs() As String = strs.Split(vbcr)
Dim flag As Boolean
For i As Integer = 0 To rs.Length - 1
Dim cs() As String = rs(i).Split(",")
If cs(0).trim() = "" Then Continue For
Dim dr As DataRow = dt.Find("代码 = '" & name & "' and 时间 = '" & cs(0) & "'")
If dr IsNot Nothing Then
Dim Result = MessageBox.Show("有重复,是否覆盖导入?"& vbcrlf &"是---覆盖导入(将更新原有数据)"& vbcrlf &"否---新增导入(仅增加新数据)", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
flag = True
Else
flag = False
End If
Exit For
End If
Next
For i As Integer = 0 To rs.Length - 1
Dim cs() As String = rs(i).Split(",")
If cs(0).trim() = "" Then Continue For
Dim dr As DataRow = dt.Find("代码 = '" & name & "' and 时间 = '" & cs(0) & "'")
If dr IsNot Nothing
If flag = False Then Continue For
Else
dr = DataTables("股piao信息明细表").Addnew()
End If
dr("代码") = name
dr("时间") = cs(0)
dr("开盘价") = cs(1)
dr("最高价") = cs(2)
dr("最低价") = cs(3)
dr("收盘价") = cs(4)
dr("成交量") = cs(5)
dr("金额") = cs(6)
Next
Next
dt.DeleteFor("时间 Is Null")
End If
Tables("股piao信息明细表").ResumeRedraw()
'e.Form.Close()
msgbox("导入结束")
加好友 
发短信
Post By：2020/5/2 19:08:00 [只看该作者]
此主题相关图片如下：156.jpg
