Foxtable(狐表)用户栏目专家坐堂 → 求助:点击"进货单价"列时,显示进货明细表相同商品编码的不重复单价


  共有8417人关注过本帖树形打印复制链接

主题:求助:点击"进货单价"列时,显示进货明细表相同商品编码的不重复单价

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
求助:点击"进货单价"列时,显示进货明细表相同商品编码的不重复单价  发帖心情 Post By: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



根据以上代码,我希望做一个功能:
进入单元格"产品编号"时,获取 进货明细 表的同一产品编号的所有不重复进货单价;


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2013/4/10 20:31:00 [只看该作者]

上例子

 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2013/4/10 20:43:00 [只看该作者]

我希望在产品信息表的单价列开始编辑时,出现 一个提示信息;显示进货明细表,商品编码与本表的商品编码相同且不重复的单价信息.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:请教.table


[此贴子已经被作者于2013-4-10 20:43:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2013/4/10 20:45:00 [只看该作者]

泛泛而提
泛泛而答

GetUniqueValues吧

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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事件

 回到顶部