VB 上拉列表有关问题 新手

VB 下拉列表问题 新手

VB code

Private Sub Command1_Click()Dim a As IntegerDim b  As IntegerDim REIf Combo1.ItemData(0) Thena = 1Else    If Combo1.ItemData(1) Thena = 2End IfEnd IfIf Combo2.ItemData(0) Thenb = 0Else    If Combo2.ItemData(1) Thenb = 1End IfEnd IfText1.Text = aIf Form1.GetWalletBalance(a, b) = False ThenRE = MsgBox("获取余额失败", 确认, "消息提示")Else   RE = MsgBox("获取余额成功", 确认, "消息提示")   'Text1.Text = "余额为：" & retValue         End IfEnd 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啊

查看更多 下一篇