Foxtable(狐表)用户栏目专家坐堂 → [求助]增加一列限定项目该如何修改代码


  共有2851人关注过本帖树形打印复制链接

主题:[求助]增加一列限定项目该如何修改代码

帅哥哟,离线,有人找我吗?
jlccrtl
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1414 威望:0 精华:0 注册:2014/10/7 21:19:00
[求助]增加一列限定项目该如何修改代码  发帖心情 Post By: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

如果由 “产品图号 包括装配组件每台用量” 这两列控制(这两列都是工时统计表的列名)
代码该如何修改?
试了几种都不行
求大神指教

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 14:54:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jlccrtl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1414 威望:0 精华:0 注册:2014/10/7 21:19:00
  发帖心情 Post By:2015/1/8 15:13:00 [只看该作者]

以下是引用有点甜在2015-1-8 14:54:00的发言:
Dim filter As String = "产品图号 = '" & e.DataRow("产品图号") & "' and 包括装配组件每台用量 = '" & e.Datarow("包括装配组件每台用量") & "'"
修改之后提示错误啊!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子4.foxdb


不知道错在哪里了 纠结


 回到顶部
帅哥哟,离线,有人找我吗?
jlccrtl
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1414 威望:0 精华:0 注册:2014/10/7 21:19:00
[求助]增加一列限定项目该如何修改代码  发帖心情 Post By:2015/1/8 15:15:00 [只看该作者]

密码 147

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 15:31:00 [只看该作者]

列名都没写对

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jlccrtl
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1414 威望:0 精华:0 注册:2014/10/7 21:19:00
[求助]增加一列限定项目该如何修改代码  发帖心情 Post By:2015/1/8 15:37:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jlccrtl
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1414 威望:0 精华:0 注册:2014/10/7 21:19:00
[求助]增加一列限定项目该如何修改代码  发帖心情 Post By:2015/1/8 15:48:00 [只看该作者]

如果 “包括装配组件每台用量”这列为空值该如何控制
公式该如何修改呢?

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子5.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部