主题：[求助]按领用人来自动分配收据号码【已解决】

表A_BeforeAddDataRow

Dim dr,dr1 As DataRow

dr = DataTables("号段管理").Find("[领用人] = '" & User.Name & "' and [启用] = True And [停止] = False")

dr1 = DataTables("号段管理").Find("[领用人] = '" & User.Name & "' and [启用] = False And [停止] = False")

If dr Is Nothing Then

    If dr1 IsNot Nothing Then

        dr1("启用") = True

    Else

        e.Cancel = True

        MessageBox.Show("没有可用号段!","提示")

        Return

    End If

End If

表A_DataRowAdded

Dim dr As DataRow = e.DataRow

Dim dr1,dr2 As DataRow

dr1 = DataTables("号段管理").Find("[领用人] = '" & User.Name & "' and [启用] = True And [停止] = False")

dr2 = DataTables("表A").Find("[编号] = '" & dr1("开始号段") & "'")

If dr2 Is Nothing Then

    dr("编号") = dr1("开始号段")

Else

    dr("编号") = Format(e.DataTable.Compute("Max(编号)") + 1,"0000000")

    If dr("编号") = dr1("结束号段")

        dr1("停止") = True

    End If

End If

以上代码可以按领用号码自动分配，但还是不能按领用人来进行分配，高手们，帮忙修改一下，变成可以按领用人来进行分配的代码吧！