Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求填充公式

1楼
wqc360 发表于:2009/11/19 11:40:00
表A                               表B
范围      系数                     数值      系数                  第8列                    第10列
0<1       5                          0.5                               0.3
1<2       4                          1.5                              0.5 
2<3       3                         2.5                                2.5 
3<4      2                          3.5     
4<5      1                           4.5   
5<∞     0                            8  
请问怎样实现如下:
1.表B【数值】列=表A【范围】列时,表B【系数】列填充表A【系数】列  。
2.表B第10列直接填充表B第8列。
谢谢
[此贴子已经被作者于2009-11-19 14:02:30编辑过]
2楼
程兴刚 发表于:2009/11/19 12:11:00
提问尽量提供附件!
3楼
mr725 发表于:2009/11/19 12:25:00

between

4楼
wqc360 发表于:2009/11/19 13:26:00

要求:1.表B【数值】列=表A【范围】列时,表B【系数】填充表A【系数】列  。
2.表B第10列直接填充表B第8列。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



或者直接用公式:表B【数值】列满足什么条件时,表B【系数】填充合适的数据,公式该怎么写
[此贴子已经被作者于2009-11-19 14:01:56编辑过]
5楼
mr725 发表于:2009/11/19 15:06:00
请把 "<" 改为"-"(即 0<1 改为: 0-1), 不知怎么搞的 split不认"<"符号.下面代码放在按钮中即可,
for i as integer = 0 to Tables("表A").count-1
    if Tables("表A").rows(i).isnull("范围") = false then
        for ii as integer = 0 to tables("表B").count-1
            if tables("表B").rows(ii).isnull("数值") = false then
                if Tables("表B").rows(ii)("数值") >= Tables("表A").rows(i)("范围").split("-")(0) andalso tables("表B").rows(ii)("数值") < Tables("表A").rows(i)("范围").split("-")(1)
                    tables("表B").rows(ii)("系数") = Tables("表A").rows(i)("系数")
                end if
            end if
           tables("表B").rows(ii)("第八列") = Tables("表B").rows(ii)("第十列")    '刚才漏了这条代码
        next
    end if
next
[此贴子已经被作者于2009-11-19 15:13:45编辑过]
6楼
wqc360 发表于:2009/11/19 16:25:00
感谢mr725,你太有才了,基本搞定,但是5-∞ 时出错,有办法解决吗,谢谢
7楼
mr725 发表于:2009/11/19 17:45:00
以下是引用wqc360在2009-11-19 16:25:00的发言:
感谢mr725,你太有才了,基本搞定,但是5-∞ 时出错,有办法解决吗,谢谢

把∞改为100000000

共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04688 s, 3 queries.