上次的问题再加一点???有关updata方面的?

不明白。你为什么要在添加功能中做删除？

解决方案 »

  1.   

    rst.Find "class_No = '" & Trim(txtClassno.Text) & "'"
    If rst.EOF Then
            rst.AddNew
    End If
            rst.Fields(0) = Trim(txtClassno.Text)
            rst.Fields(1) = Trim(comboGrade.Text)
            rst.Fields(2) = Trim(txtDirector.Text)
            rst.Fields(3) = Trim(txtClassroom.Text)
            rst.Update
            MsgBox "修改班级信息成功！", vbOKOnly + vbExclamation, "警告"
           rst.Book = myBook
      

  2.   

    我做的是修改嘛，如果不删除原来那条不就等于是添加了吗，达不到效果呀
      

  3.   

    晕倒，那你直接修改不得了，为什么还要先删除，再添加，再晕%……￥%￥%*（）#￥