Foxtable(狐表)用户栏目专家坐堂 → 大神帮我看看我的代码


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

主题:大神帮我看看我的代码

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


加好友 发短信
等级:婴狐 帖子:16 积分:182 威望:0 精华:0 注册:2017/5/6 17:01:00
大神帮我看看我的代码  发帖心情 Post By:2017/5/7 16:55:00 [只看该作者]

Select Case e.DataCol.Name
    Case "员工编号"
        If e.NewValue Is Nothing Then
            e.DataRow("提成") = Nothing
        Else
            Dim pr As DataRow = e.DataRow.GetParentRow("汇总表")
            If pr IsNot Nothing Then
                e.DataRow("提成") = pr("提成")
                If e.OldValue <> e.NewValue Then
                    DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
                End If
            End If
        End If
        If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            pr = DataTables("汇总表").Find("["员工编号"] = " & e.OldValue)
            If pr IsNot Nothing Then
                DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
            End If
        End If
    Case "销量","违约处罚","清帐","提成"
        If e.OldValue <> e.NewValue Then
            Dim pr As DataRow = e.DataRow.GetParentRow("汇总表")
            If pr IsNot Nothing Then
                DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
            End If
        End If
End Select
总是提示  pr = DataTables("汇总表").Find("["员工编号"] = " & e.OldValue)是错误代码

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


加好友 发短信
等级:婴狐 帖子:4 积分:90 威望:0 精华:0 注册:2017/5/7 16:04:00
  发帖心情 Post By:2017/5/7 17:01:00 [只看该作者]

pr = DataTables("汇总表").Find("["员工编号"] = " & e.OldValue)

改成


pr = DataTables("汇总表").Find("["员工编号"]   & e.OldValue

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


加好友 发短信
等级:婴狐 帖子:16 积分:182 威望:0 精华:0 注册:2017/5/6 17:01:00
  发帖心情 Post By:2017/5/7 17:04:00 [只看该作者]

还是不行啊

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


加好友 发短信
等级:婴狐 帖子:16 积分:182 威望:0 精华:0 注册:2017/5/6 17:01:00
  发帖心情 Post By:2017/5/7 17:06:00 [只看该作者]

  pr = DataTables("汇总表").Find("["员工编号"] = & e.OldValue
改成这样也不行

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


加好友 发短信
等级:婴狐 帖子:4 积分:90 威望:0 精华:0 注册:2017/5/7 16:04:00
  发帖心情 Post By:2017/5/7 17:07:00 [只看该作者]

 pr = DataTables("汇总表").Find("["员工编号"] = " & e.OldValue)

你多了一个右括号

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/7 17:10:00 [只看该作者]

Select Case e.DataCol.Name
    Case "员工编号"
        Dim pr As DataRow = e.DataRow.GetParentRow("汇总表")
        If e.NewValue Is Nothing Then
            e.DataRow("提成") = Nothing
        Else
           
            If pr IsNot Nothing Then
                e.DataRow("提成") = pr("提成")
                If e.OldValue <> e.NewValue Then
                    DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
                End If
            End If
        End If
        If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            pr = DataTables("汇总表").Find("[员工编号] = '" & e.OldValue & "'")
            If pr IsNot Nothing Then
                DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
            End If
        End If
    Case "销量","违约处罚","清帐","提成"
        If e.OldValue <> e.NewValue Then
            Dim pr As DataRow = e.DataRow.GetParentRow("汇总表")
            If pr IsNot Nothing Then
                DataTables("汇总表").DataCols("员工编号").RaiseDataColChanged(pr)
            End If
        End If
End Select

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


加好友 发短信
等级:婴狐 帖子:16 积分:182 威望:0 精华:0 注册:2017/5/6 17:01:00
  发帖心情 Post By:2017/5/7 17:27:00 [只看该作者]

终于搞定了,太谢谢您了

 回到顶部