以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]增加一列限定项目该如何修改代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62813)
--  作者：jlccrtl
--  发布时间：2015/1/8 14:35:00
--  [求助]增加一列限定项目该如何修改代码
Select Case e.DataCol.Name
    Case "车间名称","工序明细","产品图号","包括装配组件每台用量"
        If e.DataRow.IsNull("车间名称") Then
            e.DataRow("工时明细") = Nothing
        Else
            Dim filter As String = "产品图号 = \'" & e.DataRow("产品图号") & "\'"
            Dim fdr As DataRow = DataTables("工时统计表").Find(filter)
            Dim sum As Double = 0
            Dim str As String = ""
            If fdr IsNot Nothing Then
                For Each dc As DataCol In DataTables("工时统计表").DataCols
                    If dc.Name.StartsWith("工序_") AndAlso fdr(dc.name) > 0 Then
                        Dim dr As DataRow = DataTables("工序明细").Find("车间 = \'" & e.DataRow("车间名称") & "\' and 工序列名称 = \'" & dc.Name & "\'")
                        If dr IsNot Nothing Then
                            str &= dr("工序名称") & ","
                            sum += fdr(dc.name)
                        End If
                    End If
                Next
            End If
            e.DataRow("工序明细") = str.trim(",")
            e.DataRow("工时明细") = sum
        End If
End Select

如果由 “产品图号 包括装配组件每台用量” 这两列控制（这两列都是工时统计表的列名）
代码该如何修改？
试了几种都不行
求大神指教
--  作者：有点甜
--  发布时间：2015/1/8 14:54:00
--  
Dim filter As String = "产品图号 = \'" & e.DataRow("产品图号") & "\' and 包括装配组件每台用量 = \'" & e.Datarow("包括装配组件每台用量") & "\'"
--  作者：jlccrtl
--  发布时间：2015/1/8 15:13:00
--  
以下是引用有点甜在2015-1-8 14:54:00的发言：
Dim filter As String = "产品图号 = \'" & e.DataRow("产品图号") & "\' and 包括装配组件每台用量 = \'" & e.Datarow("包括装配组件每台用量") & "\'"
修改之后提示错误啊！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:例子4.foxdb


不知道错在哪里了 纠结
--  作者：jlccrtl
--  发布时间：2015/1/8 15:15:00
--  [求助]增加一列限定项目该如何修改代码
密码 147
--  作者：有点甜
--  发布时间：2015/1/8 15:31:00
--  

列名都没写对

 

Dim filter As String = "产品图号 = \'" & e.DataRow("产品图号") & "\' and 包括装配组件 = \'" & e.Datarow("包括装配组件每台用量") & "\'"

--  作者：jlccrtl
--  发布时间：2015/1/8 15:37:00
--  [求助]增加一列限定项目该如何修改代码
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：jlccrtl
--  发布时间：2015/1/8 15:48:00
--  [求助]增加一列限定项目该如何修改代码
如果 “包括装配组件每台用量”这列为空值该如何控制
公式该如何修改呢？

A产品的这列为空
工时就不显示数据了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:例子5.foxdb
--  作者：有点甜
--  发布时间：2015/1/8 15:58:00
--  
Dim filter As String
If e.DataRow.isnull("包括装配组件每台用量")  Then
    filter = = "产品图号 = \'" & e.DataRow("产品图号") & "\'"
Else
    filter = = "产品图号 = \'" & e.DataRow("产品图号") & "\' and 包括装配组件每台用量 = \'" & e.DataRow("包括装配组件每台用量") & "\'"
End If