Question

我有一个带前端的ms Access 2007数据库。用户将访问前端，他们将更新一些数据。为了简化此过程，我们创建了一个前端，将数据上传到数据库，这些数据将自动到达特定用户的前端。
这是我的问题，例如：我要将100个索偿号上传到数据库，有5个用户要处理此索偿。
在这里，我使用记录集从数据库中获取数据并分发给FIFO之类的用户。因此，在完成此操作之前，不允许用户从事其他过程。因此5位用户通常会休息1或2个用户，直到其余用户完成工作为止。因此想将这100个索赔平均分配给这5个用户。

Private sub Form_Load() 
Dim strqry as string  
Dim rs as ADODB.Recordset  
strQry="select xyz,abc,ffg from tblImport where isworked='N'"  
set rs = currentdb.openrecordset(strqry)

if not (rs.EOF and rs.BOF) then  
me.textbox0.value=Cstr(rs!xyz)  
me.textbox1.value=Cstr(rs!abc)  
end if

End sub

我们有什么选择可以平均分配它吗？

Answer 1

这是我用来向用户分配/分配广告资源的代码示例。这将按优先级将库存分配给用户。

strqry = "Select [ClaimID] from ClaimsTable"
strqry2 = "Select [UserName] from UsersTable"

rs1.Open strqry2, cn1, adOpenStatic
rs2.Open strqry, cn2, adOpenStatic

rs2.MoveFirst
Do While Not rs2.EOF

    If rs1.EOF = True Then rs1.MoveFirst

    claim = CStr(rs2![ClaimID])
    User = CStr(rs1![UserName])

    'Insert this data to any table and pull inventory for the users.   
    Debug.Print claim & "-" & User

    rs2.MoveNext
    rs1.MoveNext
Loop

向用户分配数据

1 个答案: