子窗体加载事件

liumporite

子窗体加载后，数据显示不对

wuwu200222

学习

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.注释掉你原来的代码

Henry D. Sy

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

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

admin

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

Roych版主总结的Access使用ADO开发的教程
http://www.office-cn.net/thread-119301-1-1.html

liumporite

Henry D. Sy 发表于 2022-6-22 09:00
你是根据什么，要得到什么？
至少要描述一下！！

根据
如果：VSF余额- （w1+w2+w3+....+w12）<0 ,则缺料周数 得到首个  Wn(n=1,2,3,...,12)，
如果：VSF余额- （w1+w2+w3+....+w12）>=0 ,则得到 缺料周数 显示 OK

Henry D. Sy

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

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

liumporite

admin 发表于 2022-6-21 16:50
你这个代码完全不对吧
你现在是用Controls判断控件的值，这样就是一直在判断第一行的值，你应该是要判断所 ...

怎么写啊

admin

你这个代码完全不对吧
你现在是用Controls判断控件的值，这样就是一直在判断第一行的值，你应该是要判断所有行值才对啊
用ADO或者DAO才可以的