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

如何实现将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
三、删除当前行
　　with grid1
            i=.row
            .removeitem i
      end with
四、要显示下拉框，可以使用vsflexgrid中列绑定功能
　　grid1.colcombolist(1)＝grid.buildcombolist(rs,"商品名称") 
跟楼上的相比,仅仅是datamode不一样(2-flexDMBoundBatch)
但这样做的优势是非常明显的:可以撤销包括新增删除在内的所有操作,按保存键才写入数据库
       Private Sub CmdDel_Click()
             If  fg.Row <> 0 Then fg.RemoveItem (fg.Row)

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:使用分页查询来适应挖掘海量数据的需求

下一篇:提纲挈领Oracle数据库灾难防护技术