Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 14:48:00 [只看该作者]

代码中的t.Rows全部改为t1.Rows

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


加好友 发短信
等级：三尾狐 帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2018/12/8 15:25:00 [只看该作者]

版主，出现问题了，我把实例上传，请帮忙看一下，谢谢。
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 15:41:00 [只看该作者]

开发者密码和数据库发上来

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


加好友 发短信
等级：小狐 帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00 		  发帖心情 Post By：2018/12/8 15:45:00 [只看该作者]

gssliu123

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


加好友 发短信
等级：三尾狐 帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2018/12/8 15:48:00 [只看该作者]

版主，这个没有密码的，请查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 16:10:00 [只看该作者]

Dim t1 As Table = Tables("Shipment.customsinvoice")
If t1.Rows.Count = 0 Then Return 
Dim cr1 As Row
Dim cr2 As Row

Dim str As String = ""
For i As Integer = t1.TopPosition To t1.BottomPosition
    str = str & "," & t1.Rows(i)("_Identify")
Next

str = str.Trim(",")
t1.Filter = "supplier <> 'GSS' and [_Identify] in (" & str & ")"
If t1.Rows.Count <= 1 Then
    t1.Filter = ""
    Return
End If
Dim cr = t1.Rows(0)
Dim Total As Double = cr("Netweight_Total")
Dim Totalp As Double = cr("Totalprice")
For i As Integer = t1.Rows.Count - 1 To 1 Step -1
    If cr("ShippingNO") = t1.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t1.Rows(i)("NameinChinese") AndAlso cr("Unit") = t1.Rows(i)("unit") AndAlso cr("HS") = t1.Rows(i)("HS") AndAlso cr("Declaration") = t1.Rows(i)("Declaration") AndAlso cr("PO_UnitPrice") = t1.Rows(i)("PO_UnitPrice")
        cr("Qty") += val(t1.Rows(i)("Qty"))
        cr("TotalPrice") += val(t1.Rows(i)("TotalPrice"))
        cr("GrossWeight_total") += val(t1.Rows(i)("GrossWeight_Total"))
        '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total += val(t1.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")
        Totalp += val(t1.Rows(i)("Totalprice"))
        cr("PO_UnitPrice") = Totalp /cr("Qty")
        cr("GSSPartNo") &= ","  & t1.Rows(i)("GSSPartNo")
        t1.Rows(i).delete
    Else
        cr = t1.Rows(i)
    End If
Next


t1.Filter = "supplier = 'GSS' and [_Identify] in (" & str & ")"
If t1.Rows.Count <= 1 Then
    t1.Filter = ""
    Return 
End If
cr = t1.Rows(0)
Total  = cr("Netweight_Total")
Totalp  = cr("Totalprice")
For i As Integer = t1.Rows.Count - 1 To 1 Step -1
    If cr("ShippingNO") = t1.Rows(i)("ShippingNO") AndAlso cr("MaterialName") = t1.Rows(i)("MaterialName") AndAlso cr("Unit") = t1.Rows(i)("unit") AndAlso cr("HS") = t1.Rows(i)("HS")
        cr("Qty") += val(t1.Rows(i)("Qty"))
        cr("TotalPrice") += val(t1.Rows(i)("TotalPrice"))
        cr("GrossWeight_total") += val(t1.Rows(i)("GrossWeight_Total"))
        '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total += val(t1.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")
        Totalp += val(t1.Rows(i)("Totalprice"))
        cr("PO_UnitPrice") = Totalp /cr("Qty")
        cr("GSSPartNo") &= ","  & t1.Rows(i)("GSSPartNo")
        t1.Rows(i).delete
    Else
        cr = t1.Rows(i)
    End If
Next
t1.Filter = ""
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2018/12/8 16:32:00 [只看该作者]

版主，

图1中，第一条和第三条在满足合并条下没有成功合并。

图2中，第二，三，四条记录在满足合并条下也没有成功合并。

 

麻烦帮忙看一下错在哪儿了，谢谢。


图片点击可在新窗口打开查看此主题相关图片如下：捕获1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：捕获2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 16:44:00 [只看该作者]

选中要合并的数据了吗？

上一个实例我测试没有问题。

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


加好友 发短信
等级：三尾狐 帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2018/12/8 16:52:00 [只看该作者]

版主，是的，我把实例上传，麻烦帮忙再看一下，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 18:28:00 [只看该作者]

Dim t1 As Table = Tables("Shipment.customsinvoice")
If t1.Rows.Count = 0 Then Return ""
Dim cr1 As Row
Dim cr2 As Row


Dim str As String = ""
For i As Integer = t1.TopPosition To t1.BottomPosition
    str = str & "," & t1.Rows(i)("_Identify")
Next


str = str.Trim(",")
t1.Filter = "supplier <> 'GSS' and [_Identify] in (" & str & ")"
Dim cr As Row
Dim Total As Double
Dim Totalp As Double

If t1.Rows.Count > 1 Then
    
    cr = t1.Rows(0)
    Total = cr("Netweight_Total")
    Totalp = cr("Totalprice")
    For i As Integer = t1.Rows.Count - 1 To 1 Step -1
        If cr("ShippingNO") = t1.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t1.Rows(i)("NameinChinese") AndAlso cr("Unit") = t1.Rows(i)("unit") AndAlso cr("HS") = t1.Rows(i)("HS") AndAlso cr("Declaration") = t1.Rows(i)("Declaration") AndAlso cr("PO_UnitPrice") = t1.Rows(i)("PO_UnitPrice")
            cr("Qty") += val(t1.Rows(i)("Qty"))
            cr("TotalPrice") += val(t1.Rows(i)("TotalPrice"))
            cr("GrossWeight_total") += val(t1.Rows(i)("GrossWeight_Total"))
            '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
            Total += val(t1.Rows(i)("Netweight_Total"))
            cr("Netweight_PC") = Total /cr("Qty")
            Totalp += val(t1.Rows(i)("Totalprice"))
            cr("PO_UnitPrice") = Totalp /cr("Qty")
            cr("GSSPartNo") &= ","  & t1.Rows(i)("GSSPartNo")
            t1.Rows(i).delete
        Else
            cr = t1.Rows(i)
        End If
    Next
    
End If



t1.Filter = "supplier = 'GSS' and [_Identify] in (" & str & ")"
If t1.Rows.Count <= 1 Then
    t1.Filter = ""
    Return ""
End If
msgbox(1)
cr = t1.Rows(0)
Total  = cr("Netweight_Total")
Totalp  = cr("Totalprice")
For i As Integer = t1.Rows.Count - 1 To 1 Step -1
    If cr("ShippingNO") = t1.Rows(i)("ShippingNO") AndAlso cr("MaterialName") = t1.Rows(i)("MaterialName") AndAlso cr("Unit") = t1.Rows(i)("unit") AndAlso cr("HS") = t1.Rows(i)("HS")
        cr("Qty") += val(t1.Rows(i)("Qty"))
        cr("TotalPrice") += val(t1.Rows(i)("TotalPrice"))
        cr("GrossWeight_total") += val(t1.Rows(i)("GrossWeight_Total"))
        '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total += val(t1.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")
        Totalp += val(t1.Rows(i)("Totalprice"))
        cr("PO_UnitPrice") = Totalp /cr("Qty")
        cr("GSSPartNo") &= ","  & t1.Rows(i)("GSSPartNo")
        t1.Rows(i).delete
    Else
        cr = t1.Rows(i)
    End If
Next
t1.Filter = ""
 回到顶部
总数 64 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 7 次数据查询