能提出这样的问题,建议老兄看一下开发指南中的《编程基础》
改为Select Case:
Select Case CurRow("性别")
Case "男" rx.Text = "男" Case "女" rx.Text = "女"End Select
其实if不需要,Select Case 也不需要,一行就行:
rx.Text = CurRow("性别")