- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助:点击"进货单价"列时,显示进货明细表相同商品编码的不重复单价 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31134)
-- 发布时间：2013/4/10 17:52:00
-- 求助:点击"进货单价"列时,显示进货明细表相同商品编码的不重复单价
在MouseEnterCell事件设置代码：
If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If
或
1、在StartEdit(注意不是PrePareEdit事件)事件中设置代码：
If
e.Col.Name = "编码"
Then
Dim
v
As
String = "1: 初中"
v =
v
&
vbcrlf
&
"2: 高中"
v = v
&
vbcrlf
&
"3:
大专"
v = v
&
vbcrlf
&
"4: 本科"
v =
v
&
vbcrlf
&
"5: 硕士"
v = v
&
vbcrlf
&
"6:
博士"
e.Table.ShowToolTip(v,
e.Row,
e.Col)
End
If
根据以上代码,我希望做一个功能:
进入单元格"产品编号"时,获取 进货明细 表的同一产品编号的所有不重复进货单价;
-- 发布时间：2013/4/10 20:31:00
--
上例子
-- 发布时间：2013/4/10 20:43:00
--
我希望在产品信息表的单价列开始编辑时,出现 一个提示信息;显示进货明细表,商品编码与本表的商品编码相同且不重复的单价信息.
[此贴子已经被作者于2013-4-10 20:43:59编辑过]
-- 发布时间：2013/4/10 20:45:00
--
泛泛而提
泛泛而答
用GetUniqueValues吧
-- 发布时间：2013/4/10 21:58:00
--
If e.Col.Name = "单价" AndAlso e.Row.IsNull("产品编码") = False
Dim ss As List(of String) = DataTables("进货明细").GetUniqueValues("产品编码 = \'" & e.Row("产品编码") & "\'","进货单价")
Dim s As String = ss(0)
For i As Integer = 1 To ss.Count-1
s = s & vbcrlf & ss(i)
e.Table.ShowToolTip(s, e.Row, e.Col)
Next
End If
StartEdit事件