麻烦看一下计算单价的公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 麻烦看一下计算单价的公式

共有11742人关注过本帖树形打印复制链接主题：麻烦看一下计算单价的公式

gaoqr

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

麻烦看一下计算单价的公式 发帖心情

Post By：2010/10/14 7:48:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计算单价.table

公式比较简单：

For Each dr1 As DataRow In DataTables("实体材料分析").Select("材料编号 Is not Null")   '计算实体材料分析表中材料市场价
    If dr1("RCJ") = "W" Then
        Dim dr2 As DataRow = DataTables("使用材料").Find("[材料编号] = '" & dr1("材料编号") & "' And [序号1] = '" & dr1("序号1")&"'")
    Else
        Dim dr2 As DataRow = DataTables("使用材料").Find("材料编号 = '" & dr1("材料编号") & "'")
        If dr2("市场价") > 0 Then
            dr1("市场价") = dr2("市场价")
        Else
            dr1("市场价") = dr2("定额价")
        End If
    End If
Next

红色字体部分的命令没有执行。自己找不到原因了。

pyh6918

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1150 积分：11214 威望：0 精华：2 注册：2008/9/1 10:45:00

Post By：2010/10/14 8:14:00 [只看该作者]

dr1("序号1")&"'") 没看程序，是不是这少了空格

dr1("序号1") & "'") 这样看看

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/10/14 9:52:00 [只看该作者]

Dim str As String
For Each dr1 As DataRow In DataTables("实体材料分析").Select("材料编号 Is not Null")   '计算实体材料分析表中材料市场价
    If dr1("RCJ") = "W" Then
        str = "[材料编号] = '" & dr1("材料编号") & "' And [序号1] = '" & dr1("序号1") & "'"
    Else
        str = "材料编号 = '" & dr1("材料编号") & "'"
    End If
    Dim dr2 As DataRow = DataTables("使用材料").Find(str)
    If dr2("市场价") > 0 Then
        dr1("市场价") = dr2("市场价")
    Else
        dr1("市场价") = dr2("定额价")
    End If
Next

gaoqr

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2010/10/14 10:51:00 [只看该作者]

原来还需要增加一个变量。

谢谢 czy 版主

下一主题 >> << 上一主题

主题：麻烦看一下 计算单价 的公式

主题：麻烦看一下计算单价的公式