以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:MouseEnterCell事件中的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31129)
--  作者：kevin
--  发布时间：2013/4/10 17:08:00
--  求助:MouseEnterCell事件中的问题

在MouseEnterCell事件设置代码：

If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
 e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If


根据以上代码,我希望做一个功能:
进入单元格为产品编号时,获取 进货明细 表的同一产品编号的所有不重复单进货价;
--  作者：Bin
--  发布时间：2013/4/10 17:15:00
--  
dim list as List(of DataRow) = e.Table.DataTable.Select("产品编号= \'" & e.Rows("产品编号") & "\'")
dim str as string
For i As Integer = 0 to list.Count-1
   str=str+"/r/n"+list(i)("进货价")
next
e.Table.ShowToolTip(str,e.Row,e.Col)
--  作者：kevin
--  发布时间：2013/4/10 17:30:00
--  
非常感谢你的回答,
dim list as List(of DataRow) = e.Table.DataTable.Select("产品编号= \'" & e.Rows("产品编号") & "\'")
dim str as string
For i As Integer = 0 to list.Count-1
   str=str+"/r/n"+list(i)("进货价")
next
e.Table.ShowToolTip(str,e.Row,e.Col)
这代码,好像并不是从进货明细表获取相同产品编号不重复的进货单价;