以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于CheckBox控件赋值的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67874)

--  作者:tuyage
--  发布时间:2015/5/5 14:51:00
--  关于CheckBox控件赋值的问题
如下代码,我希望窗口中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
--  发布时间:2015/5/5 14:54:00
--  
r("已验证") = chk.Checked


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



--  作者:tuyage
--  发布时间:2015/5/5 15:03:00
--  
图片点击可在新窗口打开查看Bin版大大的好人图片点击可在新窗口打开查看