[求助]很简单的，怎么得不到想要的效果，大家看看错在哪？
| 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编辑过]
