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

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

1楼

gaoqr 发表于：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

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

2楼

pyh6918 发表于：2010/10/14 8:14:00

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

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

3楼

czy 发表于：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

4楼

gaoqr 发表于：2010/10/14 10:51:00

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

谢谢 czy 版主

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

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

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