读取文本数据第一行生成临时表，并写入文本数据行到临时表，红色部分代码注释掉的话 文本数据行和行的值会正常写入项目，不注释掉的话 文本数据行写入项目 但是行的值不写入 有没有办法修正呢？
红色部分代码拟实现的是 如果文本的列值含有 时间 就新增一个 日期列 属性为date 如果含有日期 就将该列属性直接定义位date
当前代码如下：
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
'Tables("统计").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
Dim Multi As String
Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
Dim Values11() As String = strs.Replace(vbcr,"").split(vblf)
For i1 As Integer = 0 To 0
Dim rs As String = Values11(0)
For i As Integer = 0 To 0
Dim cs() As String = rs.Split(vbtab)
output.Show(cs(0))
Multi = cs(0)
Next
Next
Dim Values() As String
Values = Multi.split("|")
Dim dtb As New DataTableBuilder("统计")
For Index As Integer = 0 To Values.Length - 1
Output.Show(Values(Index))
If Values(Index).Contains("时间") Then
dtb.AddDef("日期", Gettype(Date))
End If
If Values(Index).Contains("日期") Then
dtb.AddDef(Values(Index), Gettype(Date))
Else
dtb.AddDef(Values(Index), Gettype(String), 255)
End If
Next
dtb.Build()
'Dim s As String = FileSys.ReadAllText("d:\qqq.txt", Encoding.Default)
'Dim Values1() As String = s.Replace(vbcr,"").split(vblf)
For i As Integer = 1 To Values11.length - 1
Dim cs() As String = Values11(i).split("|")
Dim r As Row = Tables("统计").Addnew()
'For Each c As DataCol In DataTables("统计").DataCols
output.show(cs.Length-1)
For i1 As Integer = 0 To math.min(cs.Length-1, Tables("统计").cols.count - 1)
If cs.Length = Tables("统计").cols.count Then
Dim bb As String=r(i1)
If bb<>"" Then
Dim d As Date = cdate(bb)
If bb.Contains("时间") Then
r("日期")= Format(d, "yyyy-MM-dd")
Else
r(i1) = cs(i1)
End If
End If
End If
Next
'Next
Next
End If
'Tables("统计").ResumeRedraw
[此贴子已经被作者于2022/2/23 1:29:25编辑过]
加好友 
发短信
Post By：2022/2/23 0:08:00 [显示全部帖子]
此主题相关图片如下：12.png
