引用:
|
作者: mini
option
是很單純的元件
可以直接
If Option1 Then
也可以明確使用
If Option1.Value Then
您的程式碼應用可以試試
[code]
If adodc1.recordset.fields("sex") = "男...
|
直接引用Datagrid裡的資料就可以了
Private Sub DataGrid1_Click()
DataGrid1.Col = 2
Text1.Text = DataGrid1.Text
DataGrid1.Col = 3
if DataGrid1.Text = "男" then
Option1(0).Value = True
else
Option1(1).Value = True
end if
End Sub