请问如何将已经查询的DataGrid的数据保存成文件

[xmjcwo]

我用了saveFileDialog控件请问如何实现，或者有其他办法，请教大家，谢谢！

[xmjcwo]

用saveFileDialog控件如何实现？

[xmjcwo]

我试着这样做
Sub Save()
Dim i As Integer
Dim j As Integer
SaveFileDialog1.Filter = "Text Files|*.txt|All Files|*.*"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim FS As FileStream = SaveFileDialog1.OpenFile
Dim SW As New StreamWriter(FS)
For i = 0 To i = ds.Tables(0).Rows.Count
For j = 0 To j = ds.Tables(0).Columns.Count

'SaveFileDialog1.FilterIndex = i

SW.WriteLine(DataGrid1.Item(i, j))

Next

Next
SW.Close()
FS.Close()

End If
但是只能输出第一行第一列，请大家帮忙要在哪里改进才能全部输出

[ETstudio]

你要保存成什么文件？？

[xmjcwo]

随便啊，txt,html都可以

[AreZong]

这涉及数据集的序列化问题.
请参考下面代码(仅供参考)：

Private Sub SerializeDataSet(filename As String)
Dim ser As XmlSerializer = new XmlSerializer(GetType(DataSet))
' Create a DataSet add a Table, coumn, and ten rows.
Dim ds As DataSet = new DataSet("myDataSet")
Dim t As DataTable = new DataTable("table1")
Dim c As DataColumn = new DataColumn("thing")
t.Columns.Add(c)
ds.Tables.Add(t)
Dim r As DataRow
Dim i As Integer
for i = 0 to 10
r = t.NewRow()
r(0) = "Thing " & i
t.Rows.Add(r)
Next
Dim writer As TextWriter = new StreamWriter(filename)
ser.Serialize(writer, ds)
writer.Close()
End Sub