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


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

主题：多值統計相同產品編碼問題
帅哥哟，离线，有人找我吗？
ybil
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/28 23:18:00 [显示全部帖子]

楼主哪里人?香港?宝岛? 最好上传文件

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/28 23:41:00 [显示全部帖子]

大概如此這般:
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
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/28 23:55:00 [显示全部帖子]

呵呵,我不是狐爸哦,我是香港人.
代碼可放入按鈕或表切換事件中,建議你多看看幫助
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:18:00 [显示全部帖子]

呵呵,我是輸簡出繁.
代碼是根據你圖示表名寫的,你的實例與圖示不符:[產品信息] <> [產品信息表]...

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("統計數量")+ =dr1("訂單數量")
            End If
        Next
    Next
End If
dt.ResumeRedraw
[此贴子已经被作者于2013-6-29 0:20:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:29:00 [显示全部帖子]

是了,你的列類型沒有正確設置:數量列應該設置為數值列而不是字符列!

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:36:00 [显示全部帖子]

對不起,我一般不QQ
你的Excell例子,我導入後,[訂單數量]和[統計數量]兩列都是字符型!
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:39:00 [显示全部帖子]

只要數據類型及表名準確,8樓代碼OK的!

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:48:00 [显示全部帖子]

你把FT文件傳上來吧:1樓圖示,4樓Excel文件,14樓圖示各不相同!這不是忽悠人嗎!

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 0:53:00 [显示全部帖子]

我沒說過代碼放在dataColChanged中的,算了,你還是多看看幫助吧.

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/29 9:27:00 [显示全部帖子]

提供按鈕事件及DataColChanged事件,自行選擇合適的吧:


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:a.table


[此贴子已经被作者于2013-6-29 9:29:31编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询