Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

代码太多能不能简化

杨乐 等级: 普通会员 积分:0 金币:0 来自:中牟Access交流中心 发表于:2020-01-19 08:31:33   已结帖
楼主

点击下载此附件

 

access培训  诚聘access开发人员

    杨乐
      获得社区协助:请教问题(即发帖)18篇,其中获得解决的16篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 10:00:29 
1楼 得分: 0

你这代码真的好长啊,真没那个时间看完,你试试看是否能把一部分重复出现的内容用变量表示,比如:


xxxxx=[D1CZYYBBXFY] + [D2CZYYBBXFY] + [D3CZYYBBXFY] + [D4CZYYBBXFY] + [D5CZYYBBXFY] + [D6CZYYBBXFY] + [D7CZYYBBXFY] + [D8CZYYBBXFY] + [D9CZYYBBXFY] + [D10CZYYBBXFY] + [D11CZYYBBXFY] + [D12CZYYBBXFY]


然后你下面用xxxxx来代替你那个从D1到D12的代码。



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
杨乐 等级:普通会员 积分:0 金币:0 来自:中牟Access交流中心 发表于2020/1/19 12:42:43 
2楼 得分: 0
我没有专业学过这些知识,不知道怎么定义变量,还有期前几行代码都是赋值到记录的,但是无法直接引用

    杨乐
      获得社区协助:请教问题(即发帖)18篇,其中获得解决的16篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:02:22 
3楼 得分: 0


    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:04:02 
4楼 得分: 0

    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
    rst.AddNew
    rst!JBR = GetParameter("Current User Username")

CZYZFY变量=[D1CZYZFY] + [D2CZYZFY] + [D3CZYZFY] + [D4CZYZFY] + [D5CZYZFY] + [D6CZYZFY] + [D7CZYZFY] + [D8CZYZFY] + [D9CZYZFY] + [D10CZYZFY] + [D11CZYZFY] + [D12CZYZFY]

CZYYBBXFY变量=[D1CZYYBBXFY] + [D2CZYYBBXFY] + [D3CZYYBBXFY] + [D4CZYYBBXFY] + [D5CZYYBBXFY] + [D6CZYYBBXFY] + [D7CZYYBBXFY] + [D8CZYYBBXFY] + [D9CZYYBBXFY] + [D10CZYYBBXFY] + [D11CZYYBBXFY] + [D12CZYYBBXFY]

CZYDBBCFY变量=[D1CZYDBBCFY] + [D2CZYDBBCFY] + [D3CZYDBBCFY] + [D4CZYDBBCFY] + [D5CZYDBBCFY] + [D6CZYDBBCFY] + [D7CZYDBBCFY] + [D8CZYDBBCFY] + [D9CZYDBBCFY] + [D10CZYDBBCFY] + [D11CZYDBBCFY] + [D12CZYDBBCFY]

CZYBCBXBCFY变量=[D1CZYBCBXBCFY] + [D2CZYBCBXBCFY] + [D3CZYBCBXBCFY] + [D4CZYBCBXBCFY] + [D5CZYBCBXBCFY] + [D6CZYBCBXBCFY] + [D7CZYBCBXBCFY] + [D8CZYBCBXBCFY] + [D9CZYBCBXBCFY] + [D10CZYBCBXBCFY] + [D11CZYBCBXBCFY] + [D12CZYBCBXBCFY]

CZYQTBCFY变量=[D1CZYQTBCFY] + [D2CZYQTBCFY] + [D3CZYQTBCFY] + [D4CZYQTBCFY] + [D5CZYQTBCFY] + [D6CZYQTBCFY] + [D7CZYQTBCFY] + [D8CZYQTBCFY] + [D9CZYQTBCFY] + [D10CZYQTBCFY] + [D11CZYQTBCFY] + [D12CZYQTBCFY]

CZYZFFY变量=[D1CZYZFFY] + [D2CZYZFFY] + [D3CZYZFFY] + [D4CZYZFFY] + [D5CZYZFFY] + [D6CZYZFFY] + [D7CZYZFFY] + [D8CZYZFFY] + [D9CZYZFFY] + [D10CZYZFFY] + [D11CZYZFFY] + [D12CZYZFFY]

CZYGRZF变量=[D1CZYGRZF] + [D2CZYGRZF] + [D3CZYGRZF] + [D4CZYGRZF] + [D5CZYGRZF] + [D6CZYGRZF] + [D7CZYGRZF] + [D8CZYGRZF] + [D9CZYGRZF] + [D10CZYGRZF] + [D11CZYGRZF] + [D12CZYGRZF]

CZYCXJZF变量=[D1CZYCXJZF] + [D2CZYCXJZF] + [D3CZYCXJZF] + [D4CZYCXJZF] + [D5CZYCXJZF] + [D6CZYCXJZF] + [D7CZYCXJZF] + [D8CZYCXJZF] + [D9CZYCXJZF] + [D10CZYCXJZF] + [D11CZYCXJZF] + [D12CZYCXJZF]

CZYQTZF变量= [D1CZYQTZF] + [D2CZYQTZF] + [D3CZYQTZF] + [D4CZYQTZF] + [D5CZYQTZF] + [D6CZYQTZF] + [D7CZYQTZF] + [D8CZYQTZF] + [D9CZYQTZF] + [D10CZYQTZF] + [D11CZYQTZF] + [D12CZYQTZF]



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:04:19 
5楼 得分: 0
rst!ZZYFY = Round(CZYZFY变量, 2)
    rst!ZYBBXFY = Round(CZYYBBXFY变量, 2)
    rst!ZDBBCFY = Round(CZYDBBCFY变量, 2)
    rst!ZBCBXBCFY = Round(CZYBCBXBCFY变量, 2)
    rst!ZQTBCFY = Round(CZYQTBCFY变量, 2)
    rst!ZZFFY = Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2)
    rst!GRZFFY = Round(CZYZFY变量, 2) - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2)
    rst!DBJZSQJE = IIf(Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))) > 50000, 50000, _
    Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))))

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:04:36 
6楼 得分: 0
rst!ZZGRZFFY = Round(Round(CZYZFY变量, 2) - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) _
    - IIf(Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))) > 50000, 50000, _
    Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2)))), 2)
    Else
    rst!ZZYFY = Round(CZYZFY变量, 2)
    rst!ZYBBXFY = Round(CZYYBBXFY变量, 2)
    rst!ZDBBCFY = Round(CZYDBBCFY变量, 2)
    rst!ZBCBXBCFY = Round(CZYBCBXBCFY变量, 2)
    rst!ZQTBCFY = Round(CZYQTBCFY变量, 2)
    rst!ZZFFY = Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2)
    rst!GRZFFY = Round(CZYZFY变量, 2) - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2)
    rst!DBJZSQJE = IIf(Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))) > 50000, 50000, _
    Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))))

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:04:49 
7楼 得分: 0
rst!ZZGRZFFY = Round(Round(CZYZFY变量, 2) - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) _
    - IIf(Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2))) > 50000, 50000, _
    Round(IIf(Round(CZYZFY变量, 2) * 0.85 _
    - Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2) > _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    IIf(Round(CZYZFY变量, 2) _
    - Round(CZYZFFY变量 + CZYGRZF变量 + CZYCXJZF变量 + CZYQTZF变量, 2) > 30000, _
    Round(CZYYBBXFY变量, 2) * 0.5, _
    Round(CZYYBBXFY变量, 2) * 0.3), _
    Round(CZYZFY变量, 2) * 0.85 - _
    Round(CZYDBBCFY变量 + CZYBCBXBCFY变量 + CZYQTBCFY变量 + CZYYBBXFY变量, 2)))), 2)
    End If

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:918 金币:120 来自:宁波Access交流中心 发表于2020/1/19 16:05:50 最佳答案
8楼 得分: 2

附件不知为啥上传不了,你自己拼接下试试看。

你哪些计算逻辑别人是没办法帮你简化的,因为根本不知道你的业务背景。



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)128篇,其中获得解决的127篇;
      协助社区成员:协助他人(即回帖)923篇,其中被设为【最佳答案】的242篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
杨乐 等级:普通会员 积分:0 金币:0 来自:中牟Access交流中心 发表于2020/1/20 17:59:35 
9楼 得分: 0

谢谢,我试试




    杨乐
      获得社区协助:请教问题(即发帖)18篇,其中获得解决的16篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
杨乐 等级:普通会员 积分:0 金币:0 来自:中牟Access交流中心 发表于2020/1/20 20:04:16 
10楼 得分: 0
我试了,可以正常报销,但是运行速度变慢了,不知道什么原因!

    杨乐
      获得社区协助:请教问题(即发帖)18篇,其中获得解决的16篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:10篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。