[求助]按领用人来自动分配收据号码【已解决】
领取到号段后在号段管理表中输入开始号段和结束号段，接下来什么也不用管，增加行时会自动判断的。
如果增加一个【领用人】判断，代码该怎么写？
此主题相关图片如下：2013-04-15_11-13-20.png
例如：领用人：开发者，领用号段为：1000001-1000100，开发者登陆后，新增行自动编号就会从100000开始； 领用人：管理员，领用号段为：2000001-2000100，开发者登陆后，新增行自动编号就会从200000开始；
请 czy 版主帮忙在以下表事件基础上修改一下，谢谢！
表事件
表A_BeforeAddDataRow
Dim dr,dr1 As DataRow
dr = DataTables("号段管理").Find("[启用]
= True And [停止] = False")
dr1 = DataTables("号段管理").Find("[启用]
= 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("[启用]
= 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
[此贴子已经被作者于2013-4-15 22:24:12编辑过]
加好友 
发短信
Post By：2013/4/15 11:27:00 [只看该作者]
