关于网格控件

Question

你讲的问题很简单：
  1、在网上找找关于如何在DataGrid上实现编辑功能的实例。（在关于VB的站点有很多）。
  2、数据输入完毕后，使用循环清空表格。不过在之前一定要把数据保存入数据库。

Answer 1

dim rs1 as adodb.recordset
dim rs2 as adodb.recordset
dim cn as adodb.connectionset cn=new adodb.connection
cn.cursorlocation=aduseclient
cn.open yourConnectionStringset rs1=new adodb.recordset
rs1.open "select * from yourtbl where 1=0",cn,3,4
set rs2=new adodb.recordset
rs2.cursorlocation=aduseclient
dim i as integer
for i=0 to rs1.fields.count-1
  rs2.fields.append rs1.fields(i).name,rs1.fields(i).type,rs1.fields(i).definesize
next
rs2.open
set datagrid1.datasource=rs2
'编辑网格
'保存：
rs2.movefirst
 on error resume next
do until rs2.eof
 rs1.addnew
 for i=0 to rs2.fields.count-1
    rs2.fields(i).value=rs1.fields(i).value
 next
 rs2.movenext
loop
rs1.updatebatch