VB.net使用StringBuilder避免出现不可见的gridview行

Question

我当前的gridview有各种隐藏行； 当我将这些行复制到一个csv文件中时，它会将隐藏的行显示为空行。 我试图通过行If (DisplaySup.Rows(i).Visible = True)来传递空行； 空行仍然显示。 有没有解决方法？

Protected Sub SheetSave_Click(sender As Object, e As EventArgs) Handles SheetSave.Click

    Response.Clear()
    Response.Buffer = True
    Response.AddHeader("content-disposition", "attachment;filename=gvtocsv.csv")
    Response.Charset = ""
    Response.ContentType = "application/text"
    Dim sBuilder As StringBuilder = New System.Text.StringBuilder()
    For index As Integer = 1 To DisplaySuppliers.Columns.Count - 1
        sBuilder.Append(DisplaySuppliers.Columns(index).HeaderText + ","c)
    Next
    sBuilder.Append(vbCr & vbLf)
    For i As Integer = 1 To DisplaySup.Rows.Count - 1
        For k As Integer = 1 To DisplaySup.HeaderRow.Cells.Count - 1
            If (DisplaySup.Rows(i).Visible = True) Then
                sBuilder.Append(DisplaySup.Rows(i).Cells(k).Text.Replace(",", "").Replace(" ", "") + ",")
            End If
        Next
        sBuilder.Append(vbCr & vbLf)
    Next

    Response.Output.Write(sBuilder.ToString())
    Response.Flush()
    Response.[End]()
End Sub

Answer 1

无论如何，您都在添加换行符-您需要将其移动到支票内！

例：

For i As Integer = 1 To DisplaySup.Rows.Count - 1
    If (DisplaySup.Rows(i).Visible = True) Then
        For k As Integer = 1 To DisplaySup.HeaderRow.Cells.Count - 1                
            sBuilder.Append(DisplaySup.Rows(i).Cells(k).Text.Replace(",", "").Replace(" ", "") + ",")              
        Next
        sBuilder.Append(vbCr & vbLf)
    End If        
Next