VB 上拉列表有关问题新手

VB 下拉列表问题新手

VB code


Private Sub Command1_Click()

Dim a As Integer

Dim b  As Integer

Dim RE

If Combo1.ItemData(0) Then

a = 1

Else

    If Combo1.ItemData(1) Then

a = 2

End If

End If

If Combo2.ItemData(0) Then

b = 0

Else

    If Combo2.ItemData(1) Then

b = 1

End If

End If

Text1.Text = a

If Form1.GetWalletBalance(a, b) = False Then

RE = MsgBox("获取余额失败", 确认, "消息提示")

Else

   RE = MsgBox("获取余额成功", 确认, "消息提示")

   'Text1.Text = "余额为：" & retValue

   

   

 

  

End If

End Sub

索引0 是公交应用 1 是月票

最后语句注释掉怎么选定了没有用呢我选了第一个，照例说a=1 可偏偏是2

------解决方案--------------------
你是想拿回列表第一项的数据吗？我没看懂你的程序具体有什么用，你也说得不清楚。需要的话找我吧，QQ：1838805008，加我的时候注明是这份帖子
------解决方案--------------------
虽然不太明白GetWalletBalance这个属性是什么意思，但是你上面的代码意思就是

Combo1：选0 则a=1；选1 则a=2
Combo2：选0 则b=0；选1 则b=1

你如果Combo1选了第一个，就应该a=1啊

VB 上拉列表有关问题 新手

相关推荐

VB 上拉列表有关问题新手