Question

vb中用MSHFlexgrid控件更新数据库的问题

想用一个按钮，点击一下就把数据库中员工信息表的选中行员工信息修改成grid（1,1）中的数据，已经编的部分代码：
Private Sub command1_Click()
cn.Execute "update 员工信息表 set 员工编号='" & MSHFlexGrid1.TextMatrix(1, 1) & "'"
rs.Open "select * from 员工信息表", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
rs.Close
现在的问题是点击以后整列的信息都变成grid（1,1）的数据了，如图
执行前 执行后。 有什么方法可以只让其中某一行变化？
想要的效果





Answer 1

不要用 Set MSHFlexGrid1.DataSource = rs，要逐格添加