现有一个入库窗口，有一个批次需要自动生成，格式是wwcn+当天+生产日期，例如wwcn170228150623 代码如下 Dim scrq,yxqz As WinForm.DateTimePicker
scrq = e.Sender
yxqz = e.Form.Controls("有效期至")
Dim pc As String = e.Form.controls("批次").value
'Dim qz As String = "WWCN"
Dim k As Date = scrq.value
Dim j As Date = yxqz.value
If k <= Date.Today Then
yxqz.value = k.AddYears(2)
e.Form.Controls("有效期至").Select()
Else
MessageBox.Show("生产日期不能大于当天日期!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
yxqz.value = ""
scrq.value = ""
e.Form.Controls("生产日期").Select()
Return
End If
If scrq IsNot Nothing Then
pc = "WWCN" & Format(Date.today,"yymmdd") & Format(k,"yymmdd")
End If
加好友 
发短信
Post By：2017/2/28 17:26:00 [显示全部帖子]
