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

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