Private Sub Command7_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "没有记录可供删除！", vbOKOnly, "温馨提示"
Else
If MsgBox("你真的不需要打印这个订单编号的送货单吗？", vbOKCancel, "温馨提示") = vbOK Then
DataGrid1.AllowDelete = True
Adodc1.Recordset.Filter = "订单编号='" & 订单编号 & "'"
Adodc1.Recordset.Delete adAffectGroup (这行提示出错，提示在此环境中不允许操作）这是为什么？？
DataGrid1.AllowDelete = False
MsgBox "删除订单编号成功", vbOKOnly, "温馨提示"

End If
End If
End Sub


求大师指点啊，我快疯掉了。。。。。
我的本意是要删除Adodc1.Recordset.Filter = "订单编号='" & 订单编号 & "'"
但是我不想去直接操作数据库，因为这是为一个打印程序所开发的程序，我只是想让他把查询中不想打印的recordest从adodc1.recordest中删除，
但是我现在遇到这个情况真不知道该如何去解决，还请大师指点啊。。。谢谢了啊

怎么没有人回答我的问题啊。。。来人啊，，，，

既然是查询，可以用“订单编号＜＞”来完成查询，然后打印DataGrid1

我也没有找到好的方法，开始以为是记录集锁定模式(LockType)和记录集打开模式(CursorType)造成的，但尝试各种组合没有解决，但貌似直接delete是可以的，因此用笨法子不知道能否达到你的要求，修改后的代码如下(先备份数据库，因为会真正删除掉数据库符合要求的记录的）：
Private Sub Command7_Click()
  If Adodc1.Recordset.EOF = True Then
   MsgBox "没有记录可供删除！", vbOKOnly, "温馨提示"
  Else
    If MsgBox("你真的不需要打印这个订单编号的送货单吗？", vbOKCancel, "温馨提示") = vbOK Then
      DataGrid1.AllowDelete = True
      Adodc1.Recordset.Filter = "订单编号='" & 订单编号 & "'"
      While Not Adodc1.Recordset.EOF
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveNext
      Wend
      Adodc1.Recordset.Close
      Adodc1.Recordset.Filter = ""
      Adodc1.Refresh
      DataGrid1.AllowDelete = False
      MsgBox "删除订单编号成功", vbOKOnly, "温馨提示"
    End If
  End If
End Sub



[ 本帖最后由 lowxiong 于 2014-2-4 17:26 编辑 ]

谢谢版主了，我去试试看，如果不行的话，只能去建一个临时表了。。哎。。。谢谢拉

Private Sub Command7_Click()
  If Adodc1.Recordset.EOF = True Then
   MsgBox "没有记录可供删除！", vbOKOnly, "温馨提示"
  Else
    If MsgBox("你真的不需要打印这个订单编号的送货单吗？", vbOKCancel, "温馨提示") = vbOK Then
      DataGrid1.AllowDelete = True
      Adodc1.Recordset.Filter = "订单编号='" & 订单编号 & "'"
      While Not Adodc1.Recordset.EOF
        Adodc1.Recordset.Delete  （程序运行到此行出错，提示缺少更新或刷新的键列信息）
        Adodc1.Recordset.MoveNext
      Wend
      Adodc1.Recordset.Close
      Adodc1.Recordset.Filter = ""
      Adodc1.Refresh
      DataGrid1.AllowDelete = False
      MsgBox "删除订单编号成功", vbOKOnly, "温馨提示"
    End If
  End If
End Sub

版主这是什么原因，请指点啊。。。。谢谢啊！！

未能模拟出你的错误，网上说缺少主键，我也把实验数据库的主键取消了，仍然能正常删除，如果你能把你的程序和数据库打包过来，或许我能找到错误原因。

版主，请给我一个邮箱，我发过来您帮我看一下，谢谢拉！

lowxiong@

版主，邮件给您发了，麻烦您看一下啊，谢谢拉！