子窗体加载事件

Henry D. Sy

liumporite 发表于 2022-6-21 16:51
怎么写啊

你是根据什么，要得到什么？
至少要描述一下！！

Henry D. Sy

liumporite 发表于 2022-6-22 09:23
根据
如果：VSF余额- （w1+w2+w3+....+w12）=0 ,则得到 缺料周数 显示 OK

看了一下，
建议表中增加主键
下午有空帮你定义个函数

Henry D. Sy

liumporite 发表于 2022-6-22 09:23
根据
如果：VSF余额- （w1+w2+w3+....+w12）=0 ,则得到 缺料周数 显示 OK

1.引用ADO
2.表中增加ID自动编号字段
3.新建模块

1. Public Function gFieldName(ID As Long) As String
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim sSQL As String
   
4.     Dim tempStr As String
   
5.     Dim I As Long
   
6.     Dim Ws As Long
   
7.     sSQL = "SELECT 汇总数据.VSF余额, 汇总数据.W1, 汇总数据.W2, 汇总数据.W3, 汇总数据.W4, 汇总数据.W5, 汇总数据.W6," _
   
8.         & "汇总数据.W7, 汇总数据.W8, 汇总数据.W9, 汇总数据.W10, 汇总数据.W11, 汇总数据.W12 FROM 汇总数据 WHERE ID=" & ID
   
9.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
10.     For I = 1 To rs.Fields.Count - 1
    
11.         Ws = Ws + rs.Fields(I)
    
12.     Next
    
13.     If rs.Fields(0) - Ws < 0 Then
    
14.         For I = 1 To rs.Fields.Count - 1
    
15.             If rs.Fields(I) > 0 Then
    
16.                 tempStr = rs.Fields(I).Name
    
17.                 Exit For
    
18.             End If
    
19.             
    
20.         Next
    
21.     Else
    
22.         tempStr = "OK"
    
23.     End If
    
24.     gFieldName = tempStr
    
25.     rs.Close
    
26.     Set rs = Nothing
    
27. End Function
    
28. 
    

复制代码

4.将下面的查询语句作为子窗体的窗体记录源

1. SELECT gfieldname([id]) AS 缺料周数, 汇总数据.VSF余额, 汇总数据.W1, 汇总数据.W2, 汇总数据.W3, 汇总数据.W4, 汇总数据.W5, 汇总数据.W6, 汇总数据.W7, 汇总数据.W8, 汇总数据.W9, 汇总数据.W10, 汇总数据.W11, 汇总数据.W12
   
2. FROM 汇总数据;
   

复制代码

5.注释掉你原来的代码