主子窗体修改数据后提示问题?

小何

fswxs  你好！
你做的我试了一下，发现两问题：
1、没有修改数据时，也会提示是否保存？
2、我修改数据后，在提示是否保存时，我点击否也会保存？
这两个问题如何处理呢？

fswxs

那是因为我删除了你的变量，你用回你以前的代码就是了

kafeichaofan

没看清楚，说的仔细点

小何

主窗体解决了

[ 本帖最后由 小何 于 2008-2-19 15:21 编辑 ]

小何

现在新问题：
当主窗体内有子窗体时，修改了子窗体内容，如何得到同样的提示？（或主窗体和子窗体一起修改了数据又怎么提示呢？）

[ 本帖最后由 小何 于 2008-2-19 15:27 编辑 ]

t小宝

原帖由 小何 于 2008-2-19 08:10 发表
如果按你这个的话,我一次性全部项目都修改后就会一个一个的提示,变的很麻烦.最好修改多个项目后一次性提示.

我在6楼的例子只是告诉你使用OldValue属性，如果你要一次性提示，就把代码放在窗体的更新前事件中，也不要放在保存按钮的单击事件，因为是绑定窗体，只要移动记录就保存数据了。
完整代码是这样的（无需公共变量）：
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim st1 As String
st1 = "产品名称由 " & Me.产品名称.OldValue & " 修改成 " & Me.产品名称 & Chr(13)
st1 = st1 & "单位数量由 " & Me.单位数量.OldValue & " 修改成 " & Me.单位数量 & Chr(13)
st1 = st1 & "单价由 " & Me.单价.OldValue & " 修改成 " & Me.单价 & Chr(13)
st1 = st1 & "库存量由 " & Me.库存量.OldValue & " 修改成 " & Me.库存量 & Chr(13)
st1 = st1 & "订购量由 " & Me.订购量.OldValue & " 修改成 " & Me.订购量 & Chr(13)
st1 = st1 & "再订购量由 " & Me.再订购量.OldValue & " 修改成 " & Me.再订购量 & Chr(13)
st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "是","否") & Chr(13)
If MsgBox("数据已经修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    Chr(13) & "单击是保存，单击否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    Cancel = True
    Me.Undo
End If
End Sub

t小宝

原帖由 小何 于 2008-2-19 15:21 发表
现在新问题：
当主窗体内有子窗体时，修改了子窗体内容，如何得到同样的提示？（或主窗体和子窗体一起修改了数据又怎么提示呢？）

子窗体按上面的如法炮制

fswxs

不用公共变量不行，他要求是没修改的不提示
对于子窗体也一样啊，最多弄个全局变量

t小宝

不须要公共变量呀！再完善一下代码。

1. 
   
2. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
3. Dim st1 As String
   
4. If Me.产品名称.OldValue <> Me.产品名称 Then st1 = "产品名称由 " & Me.产品名称.OldValue & " 修改成 " & Me.产品名称 & Chr(13)
   
5. If Me.单位数量.OldValue <> Me.单位数量 Then st1 = st1 & "单位数量由 " & Me.单位数量.OldValue & " 修改成 " & Me.单位数量 & Chr(13)
   
6. If Me.单价.OldValue <> Me.单价 Then st1 = st1 & "单价由 " & Me.单价.OldValue & " 修改成 " & Me.单价 & Chr(13)
   
7. If Me.库存量.OldValue <> Me.库存量 Then st1 = st1 & "库存量由 " & Me.库存量.OldValue & " 修改成 " & Me.库存量 & Chr(13)
   
8. If Me.订购量.OldValue <> Me.订购量 Then st1 = st1 & "订购量由 " & Me.订购量.OldValue & " 修改成 " & Me.订购量 & Chr(13)
   
9. If Me.再订购量.OldValue <> Me.再订购量 Then st1 = st1 & "再订购量由 " & Me.再订购量.OldValue & " 修改成 " & Me.再订购量 & Chr(13)
   
10. If Me.中止.OldValue <> Me.中止 Then st1 = st1 & "中止由 " & IIf(Me.中止.OldValue, "是", "否") & " 修改成 " & IIf(Me.中止, "否", "是") & Chr(13)
    
11. If Len(Trim(st1)) = 0 Then
    
12.     Me.Undo
    
13.     Exit Sub
    
14. End If
    
15. If MsgBox("数据已经修改" & Chr(13) & Chr(13) & st1 & Chr(13) & Chr(13) & "是否保存？" & _
    
16.     Chr(13) & "单击是保存，单击否取消修改。", vbInformation + vbYesNo, "修改提示") = vbNo Then
    
17.     Cancel = True
    
18.     Me.Undo
    
19. End If
    
20. End Sub

复制代码

fswxs

楼上正解 学习啊