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