设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1393|回复: 4
打印 上一主题 下一主题

[模块/函数] 表中一个字段的和用什么函数

[复制链接]
跳转到指定楼层
1#
发表于 2007-9-28 13:41:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
源程序如下:(我要If rst("数量") < rst("已交数"    这一句:我要rst("数量")和rst("已交数")总数进行比较,怎样写啊)

Dim db As DAO.Database
Dim rs As DAO.Recordset, rst As DAO.Recordset
Dim n As Integer, str As String
n = 0
Set db = CurrentDb
Set rs = db.OpenRecordset(str1)
If rs.RecordCount <> 0 Then
   rs.MoveFirst
   While Not rs.EOF
        Set rst = db.OpenRecordset(str2)
        If rs.RecordCount <> 0 Then
           rst.MoveFirst
           While Not rst.EOF
             If rst(1) = rs(1) Then
                rst.Edit
                If j = 0 Then
                   rst(4) = rst(4) + rs(3)
                Else
                   rst(4) = rst(4) - rs(3)
                End If
                rst.Update
             End If
             If rst("数量") < rst("已交数") Then
               n = 1
             End If
             rst.MoveNext
          Wend
       End If
    str = " select * from 分仓库存 where 仓库 = '" & rs(2) & "' and 产品编号 = '" & rs(1) & "' "
    Set rst = db.OpenRecordset(str)
     If rst.RecordCount <> 0 Then
        rst.Edit
         If i = 0 Then
            rst(2) = rst(2) - rs(3)
         Else
            rst(2) = rst(2) + rs(3)
         End If
      rst.Update
  Else
     rst.AddNew
     rst(0) = rs(2)
     rst(1) = rs(1)
     If i = 0 Then
        rst(2) = 0 - rs(3)
     Else
        rst(2) = rs(3)
     End If
   rst.Update
End If
rs.MoveNext
Wend
   Set rst = db.OpenRecordset(str3)
   rst.Edit
    If n = 1 Then
       rst("结案") = False
    Else
       rst("结案") = True
    End If
    rst.Update
End If
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2007-9-28 15:00:15 | 只看该作者
点解又没人回啊
3#
发表于 2007-9-28 15:06:44 | 只看该作者
在查询里写
字段名:iif(数量<已交数,条件成立的数,条件不成立的数)
4#
 楼主| 发表于 2007-9-28 15:22:51 | 只看该作者
我要数量和已交数的和来比较啊
5#
发表于 2007-9-29 21:38:42 | 只看该作者
路过,学习学习,顶一个。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-7 05:05 , Processed in 0.092872 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表