列表框选用数据问题求助

gzkrmch

在窗体用上选出列表框里数据插入当前窗体时用编号插入是正常的,但用名称插入时,如果同商品名称其它不同,插入的数据总是显示第一条录入的数据,求助解决{:soso_e113:}


这是用商品编号查出的,插入是正常的



这是用商品名称查出的,插入后总是显示第一次录入的信息

gzkrmch

aslxt 发表于 2012-4-26 20:43
...
Me.单位 = Me.商品名称.Column(4, 商品名称.ListIndex)
...

Me.商品编号 = Me.商品名称.Column(1)
  Me.商品名称 = Me.商品名称.Column(0)
  Me.品牌 = Me.商品名称.Column(2, 商品编号.ListIndex)
  Me.类别 = Me.商品名称.Column(3, 商品编号.ListIndex)
  Me.单位 = Me.商品名称.Column(4, 商品编号.ListIndex)
  Me.规格型号 = Me.商品名称.Column(5, 商品编号.ListIndex)
我都加上了,也不行啊

kangking

Private Sub 商品编号_AfterUpdate()

'Me.商品编号 = Me.商品编号.Column(0)  
  Me.商品名称 = Me.商品编号.Column(1)
  Me.品牌 = Me.商品编号.Column(2)
  Me.类别 = Me.商品编号.Column(3)
  Me.单位 = Me.商品编号.Column(4)
  Me.规格型号 = Me.商品编号.Column(5)


End Sub



Private Sub 商品名称_AfterUpdate()
  
  Me.商品编号 = Me.商品名称.Column(1)
'Me.商品名称 = Me.商品名称.Column(0)
  Me.品牌 = Me.商品名称.Column(2)
  Me.类别 = Me.商品名称.Column(3)
  Me.单位 = Me.商品名称.Column(4)
  Me.规格型号 = Me.商品名称.Column(5)
   

End Sub

aslxt

...
Me.单位 = Me.商品名称.Column(4, 商品名称.ListIndex)
...
注意与你原代码的区别

gzkrmch

kangking 发表于 2012-4-27 12:00
Private Sub 商品编号_AfterUpdate()

  'Me.商品编号 = Me.商品编号.Column(0)  

恩人啊!!!!!太感谢了!解决了,再次感谢大家的帮助