主题：窗口文本框自动赋值

现有一个入库窗口，有一个批次需要自动生成，格式是wwcn+当天+生产日期，例如wwcn170228150623 代码如下 

没反应，也不报错，也没自动赋值，要改哪里

Dim scrq,yxqz As WinForm.DateTimePicker
scrq = e.Sender
yxqz = e.Form.Controls("有效期至")
Dim pc = e.Form.controls("批次")
Dim k As Date = scrq.value
Dim j As Date = yxqz.value
If k <= Date.Today Then
    yxqz.value = k.AddYears(2)
    pc.Text =  "WWCN" & Format(Date.today,"yyMMdd") & Format(k,"yyMMdd")
    yxqz.Select()
Else
    MessageBox.Show("生产日期不能大于当天日期!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    yxqz.value = Nothing
    scrq.value = Nothing
    e.Form.Controls("生产日期").Select()
End If

如果你控件的值，是绑定表列的，需要这样处理下

 

http://www.foxtable.com/webhelp/scr/2436.htm

 

谢谢。