vsflexgrid 如何操作保存数据到时数据库?

Question

我是新手,不久前听说VSFLEXGRID好用,就下了一个.但不知道如何操作.
 我想实现的目的是通过按纽(添加,删除,保存)来操作VSFLEXGRID,数据保存到数据库,有高手可以给点代码提示么,感激不尽!

Answer 1

Private Sub Combo1_Click()
' 根据排序方法选择列。
Select Case Combo1.ListIndex
Case 0 To 2
MSHFlexGrid1.Col =1
Case 3 To 4
MSHFlexGrid1.Col =2
Case 4 To 8
MSHFlexGrid1.Col =1
End Select
' 根据 Combo1.ListIndex 排序。
MSHFlexGrid1.Sort =Combo1.ListIndex
End Sub
Private Sub Form_Load()
Dim i As Integer
' 用随机数据填充 MSHFlexGrid。
MSHFlexGrid1.Cols =3 ' 创建三列。For i =1 To 11 ' 添加十项。
MSHFlexGrid1.AddItem ""
MSHFlexGrid1.Col =2
MSHFlexGrid1.TextMatrix(i, 1) =SomeName(i)
MSHFlexGrid1.TextMatrix(i, 2) =Rnd()
Next i
' 用排序选择填充 combo 框。
With Combo1
.AddItem "flexSortNone" ' 0
.AddItem "flexSortGenericAscending" '1
.AddItem "flexSortGenericDescending" '2
.AddItem "flexSortNumericAscending" '3
.AddItem "flexSortNumericDescending" '4
.AddItem "flexSortStringNoCaseAsending" '5
.AddItem "flexSortNoCaseDescending" '6
.AddItem "flexSortStringAscending" '7
.AddItem "flexSortStringDescending" '8
.ListIndex =0
End With
End Sub
Private Function SomeName(i As Integer) As String
Select Case i
Case 1
SomeName ="Ann"
Case 2
SomeName ="Glenn"
Case 3
SomeName ="Sid"
Case 4
SomeName ="Anton"
Case 5
SomeName ="Hoagie"
Case 6
SomeName ="Traut 'Trane"
Case 7
SomeName ="MereD Wah"
Case 8
SomeName ="Kemp"
Case 9
SomeName ="Sandy"
Case 10
SomeName ="Lien"
Case 11
SomeName ="Randy"
End Select
End Function
Private Sub Form1_Load ()
MSHFlexGrid1.Rows = 8
MSHFlexGrid1.Cols = 5
End SubPrivate Sub MSHFlexGrid1_Click ()
'将文本放到当前单元中。
MSHFlexGrid1.Text = "Here"
' 将文本放到第 3 行，第 3 列。
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Row = 2
MSHFlexGrid1.Text = "There"
End Sub

Answer 2

最好有VSFLEXGRID的源码
  MSHFLEXGRID用起来太不方便了