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 作者: 轻风 时间: 2011-11-2 16:58
怪了,我怎么不行?
[attach]47190[/attach]作者: todaynew 时间: 2011-11-2 16:59 本帖最后由 todaynew 于 2011-11-2 17:00 编辑