怎么保存MSFLEXGRID里的数据？

Question

小弟初学VB，做了个数据采集程序，现在已成功将数据采集回来并在MSFLEXGRID表格中显示，共有十个数据，在ROW=1 to 10，col=1 的一列中显示，现在我想把这些数据保存起来，下次打开时还能在MSFLEXGRID表格中显示，不知道应该怎么做呢？我用CommonDialog1.ShowOpen和CommonDialog1.save调出来WINDOWS风格的文件管理界面，但是不知道该怎么写代码，希望有人能帮我解答这个问题

Answer 1

无助本人开了个关于编程学习的论坛 欢迎大家捧场
www.bbs.cxrs.net

Answer 2

一般都是将数据保存到数据库中：
with hflexgrid
    for i=1 to .rows-1
        conn.execute "insert into tablename(aa) values('"& .textmatrix(i,0) &"')"
    next i
end with

Answer 3

就几个数据不用数据库吧？我的想法是保存到WORD或者TXT里就行了

Answer 4

给你个例子  保存到TXT
Dim i As Integer
  For i = 0 To 13
  wd(i) = Val(Trim(Text1(i).Text))
  Next i
Dim strpath As String
  strpath = App.Path() + "\设置.txt"
  Open strpath For Random As #1 Len = Len(wd(0))
  For i = 0 To 13
  Put #1, , wd(i)
  Next i
  Close #1

Answer 5

Word比較麻煩
TXT,5樓的就OK了

Answer 6

'保存
Private Sub Command2_Click()
    Open "d:\aa.txt" For Output As #1
    Dim i As Long, j As Long
    Dim s As String
    With MSFlexGrid1
        For i = .Rows - 1 To 1 Step -1
            s = ""
            For j = 0 To .Cols - 1
                s = s & .TextMatrix(i, j) & vbTab
            Next
            Print #1, s
        Next
    End With
    Close 1
End Sub'从文件读取
Private Sub Form_Load()
    Open "d:\aa.txt" For Input As #1
    Dim i As Long, j As Long
    Dim s As String
    Do While Not EOF(1)
        Line Input #1, s
        MSFlexGrid1.AddItem s, 1
    Loop
    MSFlexGrid1.RemoveItem MSFlexGrid1.Rows - 1'这一句可有可无，根据实际情况决定
    Close 1
End Sub读取后会在多出空行，根据实际情况removeitem即可

Answer 7

想保存的话，为什么不用DATAGRID？

Answer 8

楼主上网查一下CSV格式吧,很适合GRID控件的保存