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 y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y, m)
Dim fd As Date = New Date(y, m, 1) '获得该月的第一天
Dim ld As Date = New Date(y, m, Days) '获得该月的最后一天
Dim bh As String = lx & "-" & Format(d, "yyyyMMdd") '生成编号的前11位,4位年,2位月,2位日.
If '能在表“备件出入库”找到bh 这部怎么写
Dim max As String '定义“备件出入库”最大的值
'提取最大的单据编号这部怎么写
Dim idx As Integer '编号规则
idx = CInt(max.Substring(12, 3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
e.Form.Controls("ddjbh").Text = bh & "-" & Format(idx, "000")
End If
End If
End if
加好友 
发短信
Post By：2025/2/13 17:24:00 [只看该作者]
