- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码不晓得怎么合并在一起 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53510)
-- 发布时间：2014/7/9 15:40:00
-- [求助]代码不晓得怎么合并在一起
怎么只有李俊勇和刘海两个有店业绩金额了呢 是哪点出错了吗
If Functions.Execute("ShouQuan","佣金业绩表","生成工资表") Then
Dim dt As DataTable = DataTables("工资")
dt.DataRows.Clear
Dim d1 As Date = Forms("佣金一览表").Controls("StartDate").Value
Dim d2 As Date = Forms("佣金一览表").Controls("EndDate").Value
Dim filter2 As String = "上岗日期 <= #" & d2 & "# and (离职日期 >= #" & d1 & "# or 离职日期 is null)"
For Each dr As DataRow In DataTables("员工管理").Select(filter2)
Dim ndr As DataRow = dt.AddNew
ndr("日期") = Forms("佣金一览表").Controls("EndDate").Value
ndr("姓名") = dr("姓名")
ndr("部门") = dr("门店")
ndr("职务") = dr("职务")
ndr("个人业绩") = DataTables("佣金业绩表").Compute("sum(合计_佣金)","[置业顾问] = \'" & dr("姓名") & "\'")
If ndr("职务") <> "店面经理" AndAlso ndr("职务") <> "见习经理" AndAlso ndr("姓名") <> "何丽娜" Then
ndr("店业绩") = Nothing
Else
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[店面经理] = \'" & dr("姓名") & "\'")
End If
If ndr("姓名") <> "李俊勇" AndAlso ndr("姓名") <> "刘海" Then
ndr("店业绩") = Nothing
Else
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[所属区域] = \'" & dr("所属区域") & "\'")
End If
Next
Forms("工资").Show()
Else
MessageBox.show("你无生成工资权限!")
End If
-- 发布时间：2014/7/9 15:43:00
--
因为你判断了除开这两人 其他的都 赋值为nothing 啊
If ndr("姓名") <> "李俊勇" AndAlso ndr("姓名") <> "刘海" Then
ndr("店业绩") = Nothing
-- 发布时间：2014/7/9 15:45:00
--
这样写，好理解一些。
If ndr("职务") = "店面经理" OrElse ndr("职务") = "见习经理" OrElse ndr("姓名") = "何丽娜" Then
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[店面经理] = \'" & dr("姓名") & "\'")
Else
ndr("店业绩") = Nothing
End If
If ndr("姓名") = "李俊勇" OrElse ndr("姓名") = "刘海" Then
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[所属区域] = \'" & dr("所属区域") & "\'")
End If
[此贴子已经被作者于2014-7-9 15:45:40编辑过]
-- 发布时间：2014/7/9 16:40:00
--
我想让黄勇的店业绩等于店业绩表门店等于 云华店 中山店 （反正包括*店的 合计_佣金 该怎么设置呢 请们下面这种能实现吗
If ndr("姓名") = "黄勇" Thenndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[门店] Like \'%店\'"\'")
End If
-- 发布时间：2014/7/9 16:49:00
--
回复4楼，可以实现。
-- 发布时间：2014/7/9 16:51:00
--
怎么提示
此主题相关图片如下：qq截图20140709165151.png
-- 发布时间：2014/7/9 16:54:00
--
If ndr("姓名") = "黄勇" Then
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[门店] Like \'%店\'")
End If