Question

vb 按钮响应下一个单击事件

有cmd1(1 to 9) cmd2( 1 to n) cmd1(i)为数字按钮 cmd2(i)为产品名称 当我单击按钮cmd1（5）再单击cmd2（七匹狼）的时候在表格中就会出现 产品名称 数量 单价 金额
七匹狼 5 14 70

Answer 1

给你一个思路吧：
首先定义几个全局变量：
dim mname(1 to n) as string '这里定义产品的名称
dim mmoney(1 to n) as single '这里定义产品的单价
dim mindex as lonng '这里定义当前选择的产品
dim mcount as long '这里定义当前数量

private sub init()
'初始化时
mcount=1
mindex=1
end sub

Private Sub Cmd1_Click(Index As Integer)
mcount=index
call showinfo()
End Sub

Private Sub Cmd2_Click(Index As Integer)
mindex=index
call showinfo()
End Sub

private sub showinfo()
dim msum as single
msum=mcount*mmoney(mindex)
text1.text=mname(mindex) '名称
text2.text=mcount '数量
text3.text=money(mindex) '单价
text4.text=msum '金额合计
end sub