[求助]代码不晓得怎么合并在一起 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

怎么只有李俊勇和刘海两个有店业绩金额了呢是哪点出错了吗

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

Forms("工资").Show()

Else

MessageBox.show("你无生成工资权限!")

End If

因为你判断了除开这两人其他的都赋值为nothing 啊

If ndr("姓名") <> "李俊勇" AndAlso ndr("姓名") <> "刘海" Then

ndr("店业绩") = Nothing

这样写，好理解一些。

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编辑过]

我想让黄勇的店业绩等于店业绩表门店等于云华店中山店（反正包括*店的合计_佣金该怎么设置呢请们下面这种能实现吗

If ndr("姓名") = "黄勇" Then
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[门店] Like '%店'"'")
End If

回复4楼，可以实现。

怎么提示

此主题相关图片如下：qq截图20140709165151.png

If ndr("姓名") = "黄勇" Then
ndr("店业绩") = DataTables("店业绩表").Compute("sum(合计_佣金)","[门店] Like '%店'")
End If

主题：[求助]代码不晓得怎么合并在一起