If e.Sender.Name = "ddjrq" Or e.Sender.Name = "ddjlx" Then
If e.Form.Controls("ddjrq").Text <> "" And e.Form.Controls("ddjlx").Text <> "" Then
Dim d As Date = e.Form.Controls("ddjrq").Text
Dim lx As String
If e.Form.Controls("ddjlx").Text = "入库" Then
lx = "RK"
ElseIf e.Form.Controls("ddjlx").Text = "出库" Then
lx = "CK"
ElseIf e.Form.Controls("ddjlx").Text = "退库" Then
lx = "TK"
End If
Dim bh As String = lx & "-" & Format(d, "yyyyMMdd") & "-" '生成编号的前11位,4位年,2位月,2位日.
Dim max As String = DataTables("备件出入库").Compute("max(ddjbh)", "ddjbh like '" & bh & "%'")
Dim idx As Integer = 1 '编号规则
If max > "" Then
idx = CInt(max.Substring(12, 3)) + 1 '获得最大编号的后三位顺序号,并加1
End If
e.Form.Controls("ddjbh").Text = bh & Format(idx, "000")
End If
End If
加好友 
发短信
Post By：2025/2/13 17:32:00 [显示全部帖子]
