请教！如何用代码给窗体中的复选框赋值？

sxgaobo

读出Me.Frame2 = qz.[性质1]，写入  r.Fields!性质1 = Frame2 都报错！

roych

不明白。Frame只能显示所选中的选项组中的单选项值（即便是复选框也只能选择单个，不关联除外），也就是1、2、3等等。
这是一个折中的办法~~

1. Private Sub Frame0_Click()
   
2. Me.Text9 = GetValue(Nz(Me.Frame0.Value, 1))
   
3. End Sub
   
4. 
   
5. 'A\B\C为复选框所对应的Label值
   
6. Function GetValue(FrmValue As Long) As String
   
7. Select Case FrmValue
   
8.         Case 1
   
9.             GetValue = "A"
   
10.         Case 2
    
11.             GetValue = "B"
    
12.         Case 3
    
13.             GetValue = "C"
    
14. End Function

复制代码

8800ZW

感谢楼主的 分享啊！

sunwrsun

看看