菜鸟求助一个代码问题。。。
--------------------编程问答-------------------- 我感觉貌似是错在Str(jg(List2.ListIndex))这个上面了。。。谁能帮帮我。。。 --------------------编程问答-------------------- 没人帮帮忙吗？感觉这对大家应该不是很难的问题啊。。。怎么没人愿意回答呢？ --------------------编程问答-------------------- 检查jg这个数组的索引，在出错的时候点击调试，然后点击下jg光标停留在jg上右击选择监视，看看这个数组的情况。 --------------------编程问答-------------------- 没看懂啊。。。能告诉我怎么改嘛？ --------------------编程问答-------------------- 告诉你渔了 --------------------编程问答-------------------- 我看了，可是数组没问题啊。。。的确是我导入的数组 --------------------编程问答-------------------- Str(jg(List2.ListIndex))需要读的是与Form2.List2.List(I)相对应的值，那么这种写法对是不对？ --------------------编程问答-------------------- jg 的成员数是否大于等于 List2 的列表数，另外，它的 Index 是否基于 0？还有 jg 存的是什么东西？如果用 Long 型数可以表示，就用不着了，可以将这些内容保存在 List2 的 ItemData 中。
List2.AddItem strOrder
List2.ItemData(List2.NewIndex) = Int(jg * 100)
Form3.Print "已点菜清单", "价格"
For I = 0 To List2.ListCount - 1
Form3.Print List2.List(I), List2.ItemData(I)/100
Next I
Form3.Print "-------------------"
Form3.Print "合计", Text1.Text
--------------------编程问答-------------------- --------------------编程问答-------------------- 因为我是菜鸟嘛，所以我虽然像3楼那样的调试了，但依旧不知道该怎么处理。。。 --------------------编程问答-------------------- 你的程序架构可能要有一点点小的变动：
1 首先将一个菜单及价格表导入一个 ListBox:
Private Sub Form_Load()
Dim fileno As Integer, strLine As String, strItem() As String
fileno = FreeFile
Open App.Path & "\菜单.txt" For Input As #fileno
Do While Not EOF(fileno)
Input #fileno, strLine
strItem = Split(strLine, ",")
If Ubound(strItem) = 1 Then
List1.AddItem Replace(strItem(0), """, "") '保存菜品
List1.ItemData(List1.NewIndex) = strItem(1) '保存价格
End If
Loop
Close #fileno
End Sub
2 点菜时，将菜品和价格同时复制过去
List2.AddItem List1.List(List1.ListIndex)
List2.ItemData = List1.ItemData(List1.ListIndex)
3 结算时直接从点菜清单的 ListBox 中取得菜品和价格
Private Sub Command5_Click()
Dim sum As Long
Form3.Show
Form3.Print "已点菜清单", "价格"
sum = 0
For I = 0 To List2.ListCount - 1
Form3.Print Form2.List2.List(I), Form2.List2.ItemData(I)
sum = sum + Form2.List2.ItemData(I)
Next I
Form3.Print "-------------------"
Form3.Print "合计", sum
End Sub
--------------------编程问答-------------------- 试了一下午。。。按照这个依旧实现不了、、、哎。。。不过谢谢你。。。 --------------------编程问答-------------------- 楼主贴的代码里面少了点菜过程——即list2怎么来的，你贴出来大家看下就知道了
--------------------编程问答-------------------- --------------------编程问答-------------------- 如果你还是没有单步调试,或者单步调试了却没有发现问题,
不如把Form3.Print Form2.List2.List(I), Str(jg(List2.ListIndex))拆成多个语句来执行
Form3.Print Form2.List2.List(I),
temp=List2.ListIndex
temp=jg(List2.ListIndex)
temp=Str(jg(List2.ListIndex))
Form3.Print Str(jg(List2.ListIndex))
插入的语句如果没有问题,那么组合起来应该没有问题了,除非你拼写错误了 --------------------编程问答-------------------- 帮忙顶一下！我也不回啊！！
补充：VB , 基础类
