vb.net 存出txt档,表头不见了

我从以下的链接,找到可以导出datagridview成txt档的代码

但是有一个问题,就是表头会不见,请问这个代码可以怎么修改呢

以下的程式已测试过,可用

https://blog.csdn.net/u011057439/article/details/78940079

Dim i As Integer
Dim j As Integer
Dim myFile As New System.IO.StreamWriter(filename)
Dim strTemp As String = ""
For j = 0 To DataGridView1.RowCount - 1
strTemp = ""
For i = 0 To DataGridView1.Columns.Count - 1
strTemp &= "'" & DataGridView1(i, j).Value & "'" & ","
Next
myFile.WriteLine(strTemp)
Next

c++

3个回答

开头加上
myFile.WriteLine("第一列,第二列,...")

尽量不要大量拼接字符串,这样会很慢,用StringBuilder或者参考早上我给你写的代码

caozhy
贵阳老马马善福专门编写代码的老马就是我! 回复weixin_40187983: 嗯,最好next后加上data(i) = data(i).TrimEnd(","),否则会多一个逗号
5 个月之前 回复
weixin_40187983
weixin_40187983 我用样写,可以了!!
5 个月之前 回复
weixin_40187983
weixin_40187983 For k As Integer = 0 To dt.Columns.Count - 1 data(0) += dt.Columns(k).ColumnName & "," Next
5 个月之前 回复
caozhy
贵阳老马马善福专门编写代码的老马就是我! 回复weixin_40187983: 你编辑下你的问题,把代码贴在上面,这样没法看
5 个月之前 回复
weixin_40187983
weixin_40187983 我改成你昨天早上写的代码,不过表头,我还是不会加
5 个月之前 回复
weixin_40187983
weixin_40187983 Public Sub converToCSV(ByVal dt As DataTable) Dim data(0 To dt.Rows.Count()) As String For i As Integer = 0 To dt.Rows.Count() - 1 For j As Integer = 0 To dt.Columns.Count - 1 data(i) += dt.Rows(i).Item(j) & "," Next Next System.IO.File.WriteAllLines("C:\Users\0289\Desktop\1.csv", data, Encoding.UTF8) End Sub
5 个月之前 回复

举个例子,其他的自己添加和修改即可

        Dim 文本内容 = ""
        For Each 列 As DataGridViewColumn In 数据列表.Columns
            文本内容 += 列.Name + " "
        Next
        文本内容 += vbCrLf
        For 行 = 0 To 数据列表.Rows.Count - 1
            For Each 列 As DataGridViewColumn In 数据列表.Columns
                文本内容 += 数据列表(列.Index, 行).Value + " "
            Next
            文本内容 += vbCrLf
        Next

可以使用文件指针的偏移量

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!