- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 单选框的应用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70018)
-- 发布时间：2015/6/14 20:00:00
-- [求助] 单选框的应用
此主题相关图片如下：qq截图.png
比如：表中有一例名称是“医保类型”，有四种选项内容如截图，通过窗体界面录入信息时，单击某一选项内容就可对应录入到表中该例下，如何在窗体中设计，代码怎么写，写在那个事件下。
-- 发布时间：2015/6/14 20:06:00
--
Dim c1 As Object = e.Form.Controls("CheckBox1")
Dim c2 As Object = e.Form.Controls("CheckBox2")
Dim str As String = ""
If c1.Checked Then
str &= c1.Text & ","
End If
If c2.Checked Then
str &= c2.Text & ","
End If
Tables("表A").Current("第一列") = str.Trim(",")
[此贴子已经被作者于2015/6/14 20:05:56编辑过]