weixin_40187983
weixin_40187983
采纳率73.6%
2019-04-17 16:21 阅读 297

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

5

我从以下的链接,找到可以导出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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

3条回答 默认 最新

  • 已采纳
    caozhy 从今以后生命中的每一秒都属于我爱的人 2019-04-17 22:43

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

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

    点赞 评论 复制链接分享
  • qq_32363897 qq_32363897 2019-04-17 18:01

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

    点赞 评论 复制链接分享
  • xianfajushi 智者知已应修善业 2019-04-17 19:09

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

            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
    
    点赞 评论 复制链接分享

相关推荐