Private Sub Command4_Click()
Select Case Me.Command4.Caption
Case "改为数字"
Me.Combo0.RowSource = "SELECT Tbl.数字型 FROM Tbl;"
Me.Command4.Caption = "改为文本"
Case "改为文本"
Me.Combo0.RowSource = "SELECT Tbl.文本型 FROM Tbl;"
Me.Command4.Caption = "改为数字"
End Select
Me.Combo0.Value = Null
End Sub
Private Sub Form_Load()
Me.Combo0.RowSource = ""
Me.Command4.Caption = "改为文本"
Call Command4_Click
End Sub