- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 出入库 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131344)
-- 发布时间：2019/2/23 17:17:00
-- 出入库
此主题相关图片如下：qq截图20190223171209.png
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理系统v1.table |
请问一下，如何在出生证_入库表中起始编号到终止编号，自动在出库明细中的首发出生证编号这一栏中自己生成，T500000361至T500000380这20个编号，如果已经使用了，就不能在次使用。
谢谢！
-- 发布时间：2019/2/23 17:55:00
--
出生证_入库表datacolchanged事件
Select Case e.DataCol.Name
Case "起始编号","终止编号"
If e.DataRow.IsNull("起始编号") = False AndAlso e.DataRow.IsNull("终止编号") = False
Dim p As String = e.DataRow("起始编号")(0)
Dim s1 As Long = e.DataRow("起始编号").substring(1)
Dim s2 As Long = e.DataRow("终止编号").substring(1)
Dim vas As List(Of String) = DataTables("出库明细").GetValues("首发出生证编号","首发出生证编号 >= \'" & e.DataRow("起始编号") & "\' and 首发出生证编号 <= \'" & e.DataRow("终止编号") & "\'")
Dim dr As DataRow
For i As Long = s1 To s2
If vas.Contains(p & i) = False Then
dr = DataTables("出库明细").AddNew
dr("首发出生证编号") = p & i
End If
Next
End If
End Select