主题：我想想，你们也帮我想想，复杂的数学逻辑题

     Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (规格 <> '机动' or 规格 is null)")

   具体数据。

用软件代码处理流程的模式和Execl用函数解决问题的模式还是有很大不同的，如果只是照搬Execl的那一套表格和逻辑思维过来做，会很痛苦的。

    我没有把excel的逻辑套到数据库软件编程中，这是两种截然不同的方法，我们读书时也学过一年编程，只是我们那年代的语句与现在不同，但方法我还是知道的。我指出的问题是顺着你们的编程规则说的。

1、集体分配、个人分配的情况，以前的代码已经告诉你了啊；

 

2、按比例分配参考下面的代码

 

Dim dt As DataTable = DataTables("打砂车间工资表")
For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 = '安比例分配'")
    Dim count_rs As Integer = dt.GetValues("姓名", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'").count
    Dim drs_ds As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (备注 <> '机动' or 备注 is null)")
    Dim drs_jd As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")
    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim bl As Double = 0
    If count_rs < 8 Then
        bl = 0.77
    Else
        bl = 0.74
    End If
    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'and ( 备注 <> '机动' or 规格 is null)")
   
    For Each dr As DataRow In drs_ds
        dr("分配后金额") = dr("金额") * bl
    Next
   
    stime = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")
    dim dj = smoney * (1-bl) / stime
    For Each dr As DataRow In drs_jd
        dr("分配后金额") = dj * dr("计件工时")
    Next
Next

    我今天弄了很久，把安比例分配、直接分配、个人直接计算合并到一起，编成这样，但执行时报错说溢出数组界限，我不知怎么修改，麻烦帮我看看，谢谢。

Dim dt As DataTable = DataTables("打砂车间工资表")

For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 = '安比例分配'")

    Dim drs_ds As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (备注 <> '机动' or 规格 is null)")

    Dim drs_jd As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")

    Dim bl As Double = 0

    If drs_ds.count + drs_jd.count < 8 Then

        bl = 0.77

    Else

        bl = 0.74

    End If

    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")

    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (备注 <> '机动' or 规格 is null)")

    Dim dj As Double = smoney * bl

    For Each dr As DataRow In drs_ds

        dr("分配后金额") = format(dj,"0.00")

    Next

    stime = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")

    dj = smoney * (1-bl) / stime

    For Each dr As DataRow In drs_jd

        dr("分配后金额") = format(dj * dr("计件工时"),"0.00")

    Next

Next

For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 = '集体直接分配*'")

    Dim drs As List(Of DataRow) = DataTables("打砂车间工资表").Select("日期=#" & ary(0)& "' and 生产形式='" & ary(1) & "'" & "# and 姓名='" & ary(2))

    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# And 生产形式='" & ary(1))

    Dim ls As new List(Of String)

    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")

    Dim count As Integer = 0

    For Each dr As DataRow In drs

        Dim str As String = dr("姓名")

        If ls.Contains(str) = False Then

            count += 1

            ls.add(str)

            dr("备注") = dr("备注").replace("重复", Nothing)

        Else

            dr("备注") = "重复" & dr("备注").replace("重复", Nothing)

        End If

    Next

    For Each dr As DataRow In drs

        If dr("备注") Like "*重复*" Then

            dr("分配后金额") = Nothing

        Else

            dr("分配后金额") = format(smoney/count, "0.00")

        End If

    Next

Next

For Each dr As DataRow In DataTables("打砂车间工资表").Select("生产形式 = '个人'")

    dr("分配后金额") = format(dr("数量") * dr("单价"),"0.00")

Next

    统计不重复姓名个数有没有简化方法？我看使用指南有distinct函数可以把不重复名字列出，但我不知列出后再统计个数程序怎么编写。

Dim dt As DataTable = DataTables("打砂车间工资表")
For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 = '安比例分配'")
    Dim drs_ds As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (备注 <> '机动' or 规格 is null)")
    Dim drs_jd As List(Of DataRow) = dt.Select("日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")
    Dim bl As Double = 0
    If drs_ds.count + drs_jd.count < 8 Then
        bl = 0.77
    Else
        bl = 0.74
    End If
    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and (备注 <> '机动' or 规格 is null)")
    Dim dj As Double = smoney * bl
    For Each dr As DataRow In drs_ds
        dr("分配后金额") = format(dj,"0.00")
    Next
    stime = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "' and 备注 = '机动'")
    dj = iif(stime=0, 0, smoney * (1-bl) / stime)
    For Each dr As DataRow In drs_jd
        dr("分配后金额") = format(dj * dr("计件工时"),"0.00")
    Next
Next
For Each ary() As String In dt.GetValues("日期|生产形式", "日期 is not null and 生产形式 like '*直接分配*'")
    Dim drs As List(Of DataRow) = DataTables("打砂车间工资表").Select("日期=#" & ary(0)& "# and 生产形式='" & ary(1) & "'")
    Dim stime As Double = dt.compute("sum(计件工时)", "日期=#" & ary(0) & "# And 生产形式='" & ary(1) & "'")
    Dim ls As new List(Of String)
    Dim smoney As Double = dt.compute("sum(金额)", "日期=#" & ary(0) & "# and 生产形式='" & ary(1) & "'")
    Dim count As Integer = 0
    For Each dr As DataRow In drs
        Dim str As String = dr("姓名")
        If ls.Contains(str) = False Then
            count += 1
            ls.add(str)
            dr("备注") = dr("备注").replace("重复", Nothing)
        Else
            dr("备注") = "重复" & dr("备注").replace("重复", Nothing)
        End If
    Next
    For Each dr As DataRow In drs
        If dr("备注") Like "*重复*" Then
            dr("分配后金额") = Nothing
        Else
            dr("分配后金额") = format(smoney/count, "0.00")
        End If
    Next
Next
For Each dr As DataRow In DataTables("打砂车间工资表").Select("生产形式 = '个人'")
    dr("分配金额") = format(dr("数量") * dr("单价"),"0.00")
Next

    哈，我修改的安比例分配程序跟你的一样了，我的程序只是多了四舍五入函数，说明我还是理解你的程序没乱来了。