cbm666大哥再劳烦你一下

Select Case cmdedit.Caption    '修改按钮的代码
     Case "修改"
       Text1.SetFocus
       SendKeys "{home}+{end}"
       Data1.Recordset.Edit
       cmdedit.Caption = "确定"
       cmdadd.Enabled = False
       cmddel.Enabled = False
       cmdfirst.Enabled = False
       cmdprev.Enabled = False
       cmdnext.Enabled = False
       cmdlast.Enabled = False
     Case "确定"
       Dim xh As String
       xh = Text1.Text　　'text1里面输入的是学号
        Data1.Recordset.MoveFirst
        Data1.Recordset.FindFirst "学号=" & Chr(39) & xh & Chr(39)
     If Not Data1.Recordset.NoMatch Then
        MsgBox "此学号已经存在"
       Else
       Data1.UpdateRecord
       cmdedit.Caption = "修改"
       cmdadd.Enabled = True
       cmddel.Enabled = True
       cmdfirst.Enabled = True
       cmdprev.Enabled = True
       cmdnext.Enabled = True
       cmdlast.Enabled = True
      End If
End Select
为什么无论表中存在不存在所输入的学号都显示“这个学号已存在”，是哪里错了，帮忙改一下吧，谢谢了

1.看你的代码, 既然你是在 "修改", 那么这个学号当然是存在的, 你又不是新
增.

2.在"修改保存"时,如果你要确定所修改的 "新学号" 是否已存在还有判断的道理.

3.你的Data1.Recordset.Edit 与 Data1.UpdateRecord 做法与我完全不同.

我的做法会如下:

'oldxh是旧学号, oldpos是要修改的这笔的记录号

1.在最上面宣告
Public xh as string, oldxh as string,oldpos as integer, contstop as boolean

2.在 "显示" 这笔资料时,你应该是 Text1.text=data1.recordset.fields(0) '学号

3.在点击 "修改" 时, 加上
oldxh = Text1.Text
oldpos=Data1.Recordset.AbsolutePosition

4.在点击 "确定保存" 时加上

contstop=true
if text1.text<>oldxh then
'新修改的学号如果有变动, 这时才要判断是否已存在, 学号没更动,就没必要做判断

'如果所修改的 "新学号" 已存在,则 contstop会等於 False
end if

if contstop then '如果学号没更动或新学号也不存在,才能更新...
data1.recordset.MoveFirst
data1.recordset.Move(oldpos)
data1.recordset.edit
data1.recordset.fields(0)=text1.text
data1.recordset.fields(1)=text2.text
data1.recordset.fields(2)=text3.text
'......................................
'.......................................
data1.recordset.update
end if

还有看你那么多个 Command, 你应该用数组 cmd(0) cmd(1) cmd(2)...

不感兴趣

开通SVIP免广告

谢谢cbm666大哥不吝赐教！！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

2回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六