Private Sub Command1_Click() Dim a As Integer If Combo1.Text = "酒类 " Then a = 0 If Combo1.Text = "菜类 " Then a = 1 If Combo1.Text = "其他 " Then a = 2 Text1.Text = a End If End If end if End Sub

如果是菜类Text1.Text=1,是酒类的Text1.Text=0，如果是其他 Text1.Text = 2

[此贴子已经被作者于2006-4-28 17:00:41编辑过]

Private Sub Command1_Click()
Dim a As Integer
If Combo1.Text = "酒类 " Then
a = 0
End If
If Combo1.Text = "菜类 " Then
a = 1
End If
Text1.Text = a

End Sub


按照上面的试试

Private Sub Command1_Click()
Dim a As Integer
If Combo1.Text = "酒类 " Then
a = 0
ElseIf Combo1.Text = "菜类 " Then
a = 1
ElseIf Combo1.Text = "其他 " Then
a = 2
Text1.Text = a
End If
End Sub
这样比较简单

Private Sub Command1_Click()
Dim a As Integer
dim s as string
s=Combo1.text
select case s
case "菜类 "
a=0
case "酒类 "
a=1
case "其他 "
a=2
end select
Text1.Text = a
End Sub
这样行不行

可以

Private Sub Command1_Click()
Dim a As Integer
If Combo1.Text = "酒类 " Then a = 0:GoTo Out
If Combo1.Text = "菜类 " Then a = 1:GoTo Out
If Combo1.Text = "其他 " Then a = 2:GoTo Out

Out:
Text1.Text = a
End Sub

支持一下!