设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[行业] 这个系统如何做?

[复制链接]
跳转到指定楼层
1#
发表于 2008-4-8 11:41:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
现需要做一个报价系统,详情见附件!请高手帮忙一下!谢谢!!!!!!!!!
E-mail:natureyoung@126.com   QQ:305682358
难点:总价=价格1+价格2+价格3......     
        但是各种价格又由很多小项加起来,每个小项经常在变,如何在只变化的小项只改变一个变化数值,所有产品的总价自动变化!

欢迎有更好的方案!!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-4-8 15:34:41 | 只看该作者
参考数据难以估到系统要求,再者如:配件代码与配件结构档中配件表如何关连等都看不出来.
难点在于:思路不清
3#
 楼主| 发表于 2008-4-10 08:25:30 | 只看该作者
我重新整理了一下!詳情見附見.
請班主幫忙修改一下。謝謝!!!!!!

[ 本帖最后由 natureyoung 于 2008-4-10 09:58 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2008-4-10 08:27:23 | 只看该作者
難點:  
    1、工钱下的三个小项如果有变化,如何让数据库的数据全部跟着变化?
  2、登入数据时能否连同公式一同登过到数据表中?
  3、由于每种产品由许多配件组成,不同产品配件组合不一样,有可能配件1有5种,配件2没有,配件3有1种。。。。。。,如何在登入数据时能让其一项项接着后面自动排列。
5#
发表于 2008-4-10 16:05:49 | 只看该作者
Sub Macro1()
  i = Sheets("數據").[A65536].End(xlUp).Row + 1
    Sheets("數據").Range("A" & i).FormulaR1C1 = Sheets("登入").Range("B3").FormulaR1C1
    Sheets("數據").Range("B" & i).FormulaR1C1 = Sheets("登入").Range("I10").Value
    Sheets("數據").Range("C" & i).FormulaR1C1 = "=" & Sheets("登入").Range("B4").Value & "*IF(R5C3="""",1,R5C3)"
    Sheets("數據").Range("D" & i).FormulaR1C1 = "=" & Sheets("登入").Range("D5").Value & "*IF(R4C4="""",1,R4C4)"
    Sheets("數據").Range("E" & i).FormulaR1C1 = "=" & Sheets("登入").Range("D6").Value & "*IF(R4C5="""",1,R4C5)"
    Sheets("數據").Range("N" & i).FormulaR1C1 = Sheets("登入").Range("B14").Value
    Sheets("數據").Range("O" & i).FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(VLOOKUP(RC[-1],'C:\Documents and Settings\Bluewater\桌面\仓库管理\[配件結構檔.xls]銀配件'!R2C1:R65534C[-12],2,FALSE)=0,"""",VLOOKUP(RC[-1],'C:\Documents and Settings\Bluewater\桌面\仓库管理\[配件結構檔.xls]銀配件'!R2C1:R65534C[-12],2,FALSE)))"
End Sub

象这样,一个一个的设置,那个配件也跟这差不多,通过判断是否为空,进行输入。

但我感觉这样的库还是做成ACCESS的要好一些。
6#
发表于 2008-8-26 16:45:27 | 只看该作者
原帖由 liwen 于 2008-4-10 16:05 发表
Sub Macro1()
  i = Sheets("數據").[A65536].End(xlUp).Row + 1
    Sheets("數據").Range("A" & i).FormulaR1C1 = Sheets("登入").Range("B3").FormulaR1C1
    Sheets("數據").Range("B" & i).FormulaR1C1 = S ...

对!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-14 14:36 , Processed in 0.083271 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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