主题：[求助] 单选框的应用

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(",")