Foxtable(狐表)用户栏目专家坐堂 → [求助]商品的价格问题。


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

主题:[求助]商品的价格问题。

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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
[求助]商品的价格问题。  发帖心情 Post By:2013/10/28 15:56:00 [只看该作者]

有两个表 一个销售单,一个销售明细表,两个表是关联表,销售单中有客户列,销售明细中有单价列、货品编号、货品名称,销售明细表中的单价列怎么自动填充同一个客户同一件商品上一次填入的价格?

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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
  发帖心情 Post By:2013/10/28 16:02:00 [只看该作者]

狐爸, help me

 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/10/28 16:04:00 [只看该作者]

你可以用Find,找出最近一次的记录,然后取值,具体可以看看Find函数的说明:

http://www.foxtable.com/help/topics/0396.htm

 

代码大概如下,细节你可以调整一下:

 

Select Case e.DataCol.Name

    Case "客户","商品"

        if e.Datarow.Isnull("价格") Then '如果还没有输入价格

           dim dr As DataRow = e.DataTable.Find("客户 = '" & e.Datarow("客户") & “’ and 商品 = '" & e.DataRow("商品") & ”‘ And [_Identify] <> “ & e.DataRow("_Identify"), "[_Identify] Desc")

           if dr isnot Nothing Then

               e.Datarow("价格") = dr("价格")

           End if

        end If

End Select

 

如果还是搞不定,就做个简单的例子发上来。


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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
  发帖心情 Post By:2013/10/29 16:46:00 [只看该作者]

Select Case e.DataCol.Name
    Case "供应商名称","货品ID"
        Dim dr As DataRow
        dr = DataTable.Find("供应商名称 = '" & e.DataRow.GetParentRow("供应商名称") & "' And 货品ID = '" & e.DataRow("货品ID") & "'  Desc")
        e.DataRow("单价") = dr("单价")
    End If
End If
End Select



这代码 应该怎么改啊 ???

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/10/29 16:59:00 [只看该作者]

 DataTable.Find("供应商名称 = '" & e.DataRow.GetParentRow("父表名称")("供应商名称") & "' And 货品ID = '" & e.DataRow("货品ID") & "'  Desc")

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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
  发帖心情 Post By:2013/10/29 17:09:00 [只看该作者]

还是 错的啊 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/10/29 17:10:00 [只看该作者]

你上例子吧,不知道你具体情况.

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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
  发帖心情 Post By:2013/10/29 17:14:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/10/29 17:16:00 [只看该作者]

请上例子.

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


加好友 发短信
等级:婴狐 帖子:37 积分:293 威望:0 精华:0 注册:2013/8/4 1:14:00
  发帖心情 Post By:2013/10/29 17:16:00 [只看该作者]

上传到哪里去了

 回到顶部
总数 16 1 2 下一页