在表格里修改记录后如何保存?
我这样写,修改后的记录写不进,请高手出手相助Case "保存"
VS1.Editable = flexEDKbdMouse
Set rs = New ADODB.Recordset
sqlstr = "select * from Bgz"
rs.Open sqlstr, conn, 1, 3With VS1
.Rows = 1Do While Not rs.EOF
.Rows = .Rows + 1
.RowHeight(.Rows - 1) = 250
rs.Fields("workno") = .TextMatrix(.Rows - 1, 1)  '员工号
rs.Fields("workname") = .TextMatrix(.Rows - 1, 2) '员工姓名
rs.Fields("gdgz") = .TextMatrix(.Rows - 1, 3) '固定工资
rs.Update
rs.MoveNext
LoopEnd Withfrmgz.showdata
ask = MsgBox("数据修改成功", , "提示")
rs.Close