Foxtable(狐表)用户栏目专家坐堂 → 关于CheckBox控件赋值的问题


  共有2900人关注过本帖树形打印复制链接

主题:关于CheckBox控件赋值的问题

帅哥哟,离线,有人找我吗?
tuyage
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
关于CheckBox控件赋值的问题  发帖心情 Post By:2015/5/5 14:51:00 [只看该作者]

如下代码,我希望窗口中CheckBox控件不是绑定到表中的列,而是像ComboBox和TextBox控件一样,可以赋值到表中新增列中。
请教如何可以实现,在线等待答复

Dim pqlx As String = e.Form.Controls("ComboBox3").Value
Dim tgje As String = e.Form.Controls("ComboBox2").Value
Dim tgmm As String = e.Form.Controls("TextBox1").Value 
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim r As Row = Tables("入库表").AddNew()
r("入库员") = User.Name
r("时间") = Date.Now
r("单号") = pqlx
r("数量") = tgje
r("型号") = tgmm
r("已验证") = yz
r.Save()
e.Form.Controls("ComboBox3").Value = ""
e.Form.Controls("TextBox1").Value = ""
e.Form.Controls("ComboBox2").Value = ""
e.Form.Controls("CheckBox1").Value = ""

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/5 14:54:00 [只看该作者]

r("已验证") = chk.Checked


e.Form.Controls("CheckBox1").Checked=False



 回到顶部
帅哥哟,离线,有人找我吗?
tuyage
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
  发帖心情 Post By:2015/5/5 15:03:00 [只看该作者]

图片点击可在新窗口打开查看Bin版大大的好人图片点击可在新窗口打开查看

 回到顶部