读取文本数据第一行生成临时表，并写入文本数据行到临时表，文本数据行写入项目但是行的值不写入有没有办法修正呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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).trim()
                If bb > "" Then
                    If bb.Contains("时间") Then

Dim d As Date = cdate(bb)
r("日期")= Format(d, "yyyy-MM-dd")

                        r(i1) = cs(i1)
                    End If
                End If

End If
Next

If cs.Length = Tables("统计").cols.count Then

Dim bb As String=cs(i1).trim()
                If bb > "" Then
                    If bb.Contains("时间") Then
                        Dim d As Date = cdate(bb)
                        r("日期")= Format(d, "yyyy-MM-dd")

else
                        r(i1) = cs(i1)
                    End If
                End If

            End If

请把数据文件发上来测试

Dim dlg As new OpenFileDialog

dlg.Filter = "文本文件|*.txt"

'Tables("统计").StopRedraw

If dlg.ShowDialog = DialogResult.OK Then

If DataTables.Contains("统计") Then '如果表C已经加载

DataTables.Unload("统计") '卸载表C

End If

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)

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("时间") OrElse Values(Index).Contains("日期") Then

dtb.AddDef("日期", Gettype(Date))

End If

dtb.AddDef(Values(Index), Gettype(String), 255)

dtb.Build()

For i As Integer = 1 To Values11.length - 1

Dim cs() As String = Values11(i).split("|")

Dim r As Row = Tables("统计").Addnew()

output.show(cs.Length-1)

For i1 As Integer = 0 To math.min(cs.Length-1, Tables("统计").cols.count - 1)

Dim bb As String=cs(i1).trim()

If bb > "" Then

If Values(i1).Contains("时间") OrElse Values(i1).Contains("日期") Then

Dim d As Date = cdate(bb)

r("日期")= Format(d, "yyyy-MM-dd")

Else

r(i1) = cs(i1)

End If

'Tables("统计").ResumeRedraw

多增加了一个列

和这个代码无关。建表的代码有问题，多建了一个日期列

那么建议把日期列放到最后再添加，不要放到中间

Dim bb As String=cs(i1).trim()
                If bb > "" Then
                    If Values(i1).Contains("时间") Then
                        Dim d As Date = cdate(bb)
                        r("日期")= Format(d, "yyyy-MM-dd")
  End If
                        r(i1) = cs(i1)
                End If

主题：读取文本数据第一行生成临时表，并写入文本数据行到临时表，文本数据行写入项目 但是行的值不写入 有没有办法修正呢？

主题：读取文本数据第一行生成临时表，并写入文本数据行到临时表，文本数据行写入项目但是行的值不写入有没有办法修正呢？