请教各位高人：
我建立了一个msflexgrid表格，怎样将其中的所有数据都储存在新的数据库中呢？没有思路啊
哪位大侠可以慷慨解难呢？

谢谢谢谢，小女子有礼了

没有人回复啊，只好自己顶一下了，谁能帮帮我啊？？

所以不要想用msflexgrid来做了，你可以用datagrid来编辑数据库

你是华工的老师吗？

说我啊？？我不是

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
'********************************
'MsgBox (exwbook.Name)
For i = 1 To 7
For j = 1 To 5
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
o$ = MSFlexGrid1.Text
Set act = exsheet.Cells(i, j)
'exsheet.Cells(i, j).Select
act.Value2 = o$
Next j
Next i

exwbook.SaveAs "c:\123.xls"
Set exwbook = Nothing
Set exsheet = Nothing
ex.Quit
MsgBox ("You can open the file C:\123.xls to see what happen!")
End
End Sub

Private Sub Form_Activate()
MSFlexGrid1.Rows = 8
MSFlexGrid1.Cols = 6
For i = 1 To 7
For j = 1 To 5
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
a$ = "(" + Str(i) + "," + Str(j) + ")"
MSFlexGrid1.Text = a$
Next j
Next i

End Sub

如果 MS Flexgrid 里面已经有数据了，完全可以读出来，然后写进数据库里面的

用 .Row 和 .Col 定位，然后读取 .Text ，再写进数据库里面好了，如果需要直接在 Flexgrid 上面直接编辑，就做一个 Textbox，先将 Visible 设置为不可见，需要的时候，显示出来，读取 Flexgrid 的 .RowHeight，.ColWidth，.Rowpos 和 .ColPos 调整大小就可以了。