如何实现将vsflexgrid中修改的数据反馈到数据库中

日期：2007年9月18日作者：查看:[大字体中字体小字体]

如何实现将vsflexgrid中修改的数据反馈到数据库中？
Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
  rs.MoveFirst    '//rs为记录集
  rs.Move vsflexgrid1.Row - 1
  rs.Edit
  If vsflexgrid1.text = "" Then
      rs.Fields(vsflexgrid1.Col - 1) = Null
  Else
     rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text
  End If
  rs.Update
end sub


一、增加记录使用for来循环表格行。
    for i=1 to grid1.rows-1
          with rs
                 .addnew
                 .fileds(o)=grid1.textmariy(i,0)
                 .fileds(1)=grid1.textmariy(i,1)
                 .fileds(2)=grid1.textmariy(i,2)
                 .fileds(3)=grid1.textmariy(i,3)
                 .update
           end with
      next
二、添加行
　　grid1.additem row
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] 下一页
如何实现将vsflexgrid中修改的数据反馈到数据库中相关文章：
·如何实现将vsflexgrid中修改的数据反馈到数据库中
如何实现将vsflexgrid中修改的数据反馈到数据库中相关软件