我是VB新手
这是我写的程序,修改指令
Private Sub Command4_Click()
Dim rds As New ADODB.Recordset
Dim c As String
rds.Open Adodc1.RecordSource, Adodc1.ConnectionString, adOpenKeyset, adLockOptimistic
rds.AddNew
If c = "" Then
c = MsgBox("确定要修改吗?", vbYesNo, "提示")
rds.Fields(0).Value = Text1.Text
rds.Fields(1).Value = Text2.Text
rds.Fields(2).Value = Text3.Text
rds.Fields(3).Value = Text4.Text
rds.Fields(4).Value = Text5.Text
rds.Fields(5).Value = Text6.Text
rds.Fields(6).Value = Text7.Text
rds.Fields(7).Value = Text8.Text
rds.Fields(8).Value = Text9.Text
Else
rds.update
Adodc1.Refresh
rds.Close
End If
End Sub
我数据修改后,点确定可以,点否时,回不到原先的数据。不知道什么原因???
我想实现的是,我鼠标点确定后,文本框为我修改后的值,点否时,文本框中的数据还是原先的。求大神指教