子窗体记录处理完，主窗体自动更改

13601812106_01

如何做到：我的窗体是数据表格式，当在子窗体中，所有记录处理结果都是OK时，主窗体的总结果，自动变为"OK"

Henry D. Sy

没发现有主子窗体呀

13601812106_01

我的是用数据表格式的，点+号，就是子窗体了

Henry D. Sy

呵呵，藏起来了

1. Private Sub Form_Current()
   
2.     Dim bln As Boolean
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim strSQL As String
   
5.     bln = True
   
6.     strSQL = "select 处理结果 from 表2 where 单据='" & Me.单据 & "'"
   
7.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
8.     Do While Not rs.EOF
   
9.         If rs.Fields(0) <> "OK" Or IsNull(rs.Fields(0)) Then
   
10.             bln = False
    
11.             Exit Do
    
12.         End If
    
13.         rs.MoveNext
    
14.     Loop
    
15.     If bln Then
    
16.         Me.总结果 = "OK"
    
17.     Else
    
18.         Me.总结果 = "Not OK"
    
19.     End If
    
20.     rs.Close
    
21.     Set rs = Nothing
    
22. 
    
23. End Sub

复制代码

13601812106_01

十分的感谢，你是个很热心的朋友。如果有机会，我一定请你吃顿饭

13601812106_01

问题解决了，比我想像的简单多了，当时，我想用DCOUNT解决

layaman_999

Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单据='" & Me.单据 & "' AND NZ([处理结果],'') <> 'OK'"
    If CurrentProject.Connection.Execute(strSQL).EOF Then
      Me.总结果 = "OK"
    Else
      Me.总结果 = "NOT OK"
    End If
End Sub

13601812106_01

layaman_999 发表于 2012-6-27 08:25
Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单 ...

太谢谢了，更简洁了。

13601812106_01

layaman_999 发表于 2012-6-27 08:25
Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单 ...

并且，从你的回复中，我发现一个更好用的现象，当我用数据表格式时，当此记录获得焦点时，他会自动更改总结果

todaynew

13601812106_01 发表于 2012-6-26 20:43
问题解决了，比我想像的简单多了，当时，我想用DCOUNT解决

Dcount最简单，直觉往往是正确的。