想不明白

Question

Case 3
                 Call refreshdg
 Case 4
              
              If Me.DataGrid1.row <> -1 Then
                 intAnswer = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "删除确认")
                 If intAnswer = vbYes Then
                   Me.Adodc1.Recordset.Delete
                   Me.Adodc1.Recordset.MoveNext
                End If
                
             End If
      
            Call refreshdg为什么删除以后还要再按一下刷新还能刷新？
刷新功能都是调用的同一个过程Call refreshdg

Answer 1

If intAnswer = vbYes Then
Me.Adodc1.Recordset.Delete
Me.Adodc1.Recordset.MoveNext
刷新
End If

Answer 2

下面的Call refreshdg就是刷新，没用！

Answer 3

// Me.Adodc1.Recordset.Delete
// Me.Adodc1.Recordset.MoveNext最好把 Me.Adodc1.Recordset.MoveNext改成frist adodc是自動刷新呀

Answer 4

最好把 Me.Adodc1.Recordset.MoveNext改成frist adodc是自動刷新呀