Foxtable(狐表)用户栏目专家坐堂 → 多值統計相同產品編碼問題


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

主题:多值統計相同產品編碼問題

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
多值統計相同產品編碼問題  发帖心情 Post By:2013/6/28 23:04:00 [显示全部帖子]

與產品編號相同的原主件編號(多值字段)如附件圖

請問要如何統計訂單明細的原主件訂單數量

並將統計數到產品信息的總量數?

請求狐爸或高手詳解。


图片点击可在新窗口打开查看此主题相关图片如下:產品信息.png
图片点击可在新窗口打开查看

詳細說明:例如產品編號A002名稱AAB為原主件A002,A004,A005三件共同產品組成的,

而有一訂單A002訂單,訂單數為3則A002統計數量應為3,A004統計數量應為3,A005統計數量也為3

請問狐爸,

也就是說,訂單明細表裡的數量乘上原主件各編號數量既為訂購數量,

我在excel可以已函數統計但初學狐表不知是否也能實現,該如何實現?

图片点击可在新窗口打开查看此主题相关图片如下:訂單明細.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2013-6-28 23:11:10编辑过]

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/28 23:44:00 [显示全部帖子]

你好我是寶島的同胞上傳了附件文檔

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:狐表練習.xls


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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/28 23:48:00 [显示全部帖子]

謝謝狐爸!這些代碼是要編輯在哪個事件做處理。
[此贴子已经被作者于2013-6-28 23:49:01编辑过]

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:05:00 [显示全部帖子]

難怪你會輸入繁體,剛剛我試了,好像沒有作用,統計不出任何數據。
[此贴子已经被作者于2013-6-29 0:11:08编辑过]

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:23:00 [显示全部帖子]

按照你的代碼填入後,出現調用目標發生異常


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


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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:32:00 [显示全部帖子]

沒錯啊我設置的是數值列!我發你訊息了你方便連進來看看嗎?

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:42:00 [显示全部帖子]

我excel是臨時輸入的,不是由狐表導出的。

 

 


图片点击可在新窗口打开查看此主题相关图片如下:產品信息.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:訂單明細.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:47:00 [显示全部帖子]

現在我在事件dataColChanged填入的是

Dim drs As List(of DataRow)
Dim dr1,dr2 As DataRow
Dim dt As DataTable = DataTables("庫存信息表")


dt.StopRedraw
drs =dt.Select("產品編號 > ''")
If drs.count > 0 Then
    For Each dr1 In drs
        dr1("統計數量") = Nothing
    Next
End If


drs =DataTables("訂單明細").Select("原主件 > ''")


If drs.count > 0 Then
    For Each dr1 In drs
        For Each s1 As String In dr1("原主件").split(",")
            dr2=dt.Find("產品編號 ='" & s1 & "'")
            If dr2 IsNot Nothing Then
                dr2("統計數量")+ =dr2("數量")
            End If
        Next
    Next
End If
dt.ResumeRedraw


此主题相关图片如下:qq截图20130629004821.png
按此在新窗口浏览图片
[此贴子已经被作者于2013-6-29 0:48:47编辑过]

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:52:00 [显示全部帖子]

你誤會了我狐表裏面的是我們公司實際的訂單數據我不敢上傳,所以才用EXCEL做一個相同的需求表。

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


加好友 发短信
等级:婴狐 帖子:15 积分:157 威望:0 精华:0 注册:2013/6/8 23:34:00
  发帖心情 Post By:2013/6/29 0:57:00 [显示全部帖子]

別生氣啊!請教教新手好嗎?拜託拜託!
[此贴子已经被作者于2013-6-29 0:58:28编辑过]

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