[已解决] 文本框为空时如何自动从组合框取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [已解决] 文本框为空时如何自动从组合框取值

共有2961人关注过本帖树形打印复制链接主题：[已解决] 文本框为空时如何自动从组合框取值

hrlong

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

等级：幼狐帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00

[已解决] 文本框为空时如何自动从组合框取值 发帖心情

Post By：2018/2/18 20:11:00 [显示全部帖子]

此主题相关图片如下：qq图片20180218200425.png

验货时，要输入验货员工，验货订单号和验货结果；因固定岗位固定时段验货员工不变，所以验货输入窗口的员工不需要变，但是每次完成一次验货后，三个框的值就会清除，要重新输入。

经某个前辈提醒，采用此文本框的值为空时，自动从上个窗口的组合框取值，用这样的方式；请问这个取值的代码要怎么写？

[此贴子已经被作者于2018/2/18 21:23:45编辑过]

hrlong

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

等级：幼狐帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00

Post By：2018/2/18 21:26:00 [显示全部帖子]

参考了这个的例子，http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=15241

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As DataRow = cm.SelectedItem

If dr IsNot Nothing Then

Tables("验货").current("验货员工") = dr("姓名")

End If

把值直接返到了表格中

主题：[已解决] 文本框为空时如何自动从组合框取值