窗口文本框自动赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口文本框自动赋值

共有1852人关注过本帖树形打印复制链接主题：窗口文本框自动赋值

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/28 17:47:00 [显示全部帖子]

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

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/28 17:47:00 [显示全部帖子]

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

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

下一主题 >> << 上一主题

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