Office中国论坛/Access中国论坛

标题: 子窗体加载事件 [打印本页]
作者: liumporite    时间: 2022-6-21 15:37
标题: 子窗体加载事件
子窗体加载后，数据显示不对


作者: admin    时间: 2022-6-21 16:50
你这个代码完全不对吧
你现在是用Controls判断控件的值，这样就是一直在判断第一行的值，你应该是要判断所有行值才对啊
用ADO或者DAO才可以的
作者: liumporite    时间: 2022-6-21 16:51
admin 发表于 2022-6-21 16:50
你这个代码完全不对吧
你现在是用Controls判断控件的值，这样就是一直在判断第一行的值，你应该是要判断所 ...

怎么写啊
作者: Henry D. Sy    时间: 2022-6-22 09:00
liumporite 发表于 2022-6-21 16:51
怎么写啊

你是根据什么，要得到什么？
至少要描述一下！！
作者: liumporite    时间: 2022-6-22 09:23
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
作者: admin    时间: 2022-6-23 10:54
liumporite 发表于 2022-6-21 16:51
怎么写啊

Roych版主总结的Access使用ADO开发的教程
http://www.office-cn.net/thread-119301-1-1.html
作者: Henry D. Sy    时间: 2022-6-23 13:08
liumporite 发表于 2022-6-22 09:23
根据
如果：VSF余额- （w1+w2+w3+....+w12）=0 ,则得到 缺料周数 显示 OK

看了一下，
建议表中增加主键
下午有空帮你定义个函数
作者: Henry D. Sy    时间: 2022-6-23 13:31
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

复制代码
4.将下面的查询语句作为子窗体的窗体记录源
  1. SELECT gfieldname([id]) AS 缺料周数, 汇总数据.VSF余额, 汇总数据.W1, 汇总数据.W2, 汇总数据.W3, 汇总数据.W4, 汇总数据.W5, 汇总数据.W6, 汇总数据.W7, 汇总数据.W8, 汇总数据.W9, 汇总数据.W10, 汇总数据.W11, 汇总数据.W12
  2. FROM 汇总数据;
复制代码
5.注释掉你原来的代码
作者: wuwu200222    时间: 2022-6-24 10:14
学习



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3