急，在线等！

Question

str1 = " 编号='" & Trim(Text1.Text) & "'"
str1 = str1 & " and 出售日期=#" & Trim(Text3.Text) & "#"
str1 = str1 & " and 出售时间=#" & Trim(Text4.Text) & "#"
str1 = "select * from 出库明细表 where" & str1
rs.Open str1, conn, adOpenKeyset, adLockPessimistic
If Not rs.EOF Then
rs.Delete
rs.Update
End If
rs.Close
conn.Close运行后表中数据没有删除！

Answer 1

删除的代码里，删的数据是“出库明细表”里的，
但是你这个界面上的那个列表的数据是从“药品信息表”里拿的，
两个不是一个表，所以你看到的，永远是删除不掉的效果 
而实际上，出库明细表里的数据已经删除掉了