Private Sub ibExport_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibExport.Click
Dim sw As New StringWriter
Dim i As Integer
Dim c As Control
sw.WriteLine("编号,名称,范围,单位,地点,使用者,月份,有效日期")
For i = 0 To DataGrid1.Items.Count - 1
Dim ck As CheckBox = DataGrid1.Items(i).Cells(0).FindControl("checkbox1")
If ck.Checked = True Then
sw.WriteLine(DataGrid1.Items(i).Cells(1).Text & "," & DataGrid1.Items(i).Cells(2).Text & "," & DataGrid1.Items(i).Cells(3).Text & "," & DataGrid1.Items(i).Cells(4).Text & "," & DataGrid1.Items(i).Cells(5).Text & "," & DataGrid1.Items(i).Cells(6).Text & "," & DataGrid1.Items(i).Cells(7).Text & "," & DataGrid1.Items(i).Cells(8).Text)
End If
Next
sw.Close()
Response.AddHeader("Content-Disposition", "attachment; filename=check_plan.csv")
Response.ContentType = "application/ms-excel"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.Write(sw)
Response.End()
End Sub实现选中checkbox,输出数据到excel,sw.writeline(..).为什么?
Dim sw As New StringWriter
Dim i As Integer
Dim c As Control
sw.WriteLine("编号,名称,范围,单位,地点,使用者,月份,有效日期")
For i = 0 To DataGrid1.Items.Count - 1
Dim ck As CheckBox = DataGrid1.Items(i).Cells(0).FindControl("checkbox1")
If ck.Checked = True Then
sw.WriteLine(DataGrid1.Items(i).Cells(1).Text & "," & DataGrid1.Items(i).Cells(2).Text & "," & DataGrid1.Items(i).Cells(3).Text & "," & DataGrid1.Items(i).Cells(4).Text & "," & DataGrid1.Items(i).Cells(5).Text & "," & DataGrid1.Items(i).Cells(6).Text & "," & DataGrid1.Items(i).Cells(7).Text & "," & DataGrid1.Items(i).Cells(8).Text)
End If
Next
sw.Close()
Response.AddHeader("Content-Disposition", "attachment; filename=check_plan.csv")
Response.ContentType = "application/ms-excel"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.Write(sw)
Response.End()
End Sub实现选中checkbox,输出数据到excel,sw.writeline(..).为什么?
==
Dim ck As CheckBox = DataGrid1.Items(i).FindControl("checkbox1")调试查看ck是否为null
这句有问题,设置了断点,单元格数据正确,运行结果:只能输出一行字符串
和 end if
就有结果了。
请问高手在哪里?
else
'bindquery() end if