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


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

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/30 22:50:00 [显示全部帖子]

表达式列是不能使用代码进行赋值的。

Dim t As Table = Tables("Shipment.customsinvoice")
Dim cr = t.Rows(t.BottomPosition )
Dim Total As Double = cr("Netweight_Total")
For i As Integer = t.BottomPosition-1 To t.TopPosition Step -1
    If cr("ShippingNO") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS")
        cr("Qty") += val(t.Rows(i)("Qty"))
        cr("TotalPrice") += val(t.Rows(i)("TotalPrice"))
        cr("PO_UnitPrice") += val(t.Rows(i)("TotalPrice"))/val(t.Rows(i)("Qty"))
        cr("GrossWeight_total") += val(t.Rows(i)("GrossWeight_Total"))
        Total += val(t.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")

        t.Rows(i).delete
    Else
        cr = t.Rows(i)
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/7 20:03:00 [显示全部帖子]

If t.Rows(i)("客户") = "AA" andalso cr("ShippingNO") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 9:14:00 [显示全部帖子]

测试不就知道了。测试有什么问题？

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 9:54:00 [显示全部帖子]

t.Rows(i)("客户") <> "AAA" 

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 11:20:00 [显示全部帖子]

上传具体实例说明

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 14:24:00 [显示全部帖子]

Dim t1 As Table = Tables("Shipment.customsinvoice")
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 = 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") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS") AndAlso cr("Declaration") = t.Rows(i)("Declaration") AndAlso cr("PO_UnitPrice") = t.Rows(i)("PO_UnitPrice")
        cr("Qty") += val(t.Rows(i)("Qty"))
        cr("TotalPrice") += val(t.Rows(i)("TotalPrice"))
        cr("GrossWeight_total") += val(t.Rows(i)("GrossWeight_Total"))
    '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total += val(t.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")
        Totalp += val(t.Rows(i)("Totalprice"))
        cr("PO_UnitPrice") = Totalp /cr("Qty")
        cr("GSSPartNo") &= ","  & t.Rows(i)("GSSPartNo")
        t.Rows(i).delete
    Else
        cr = t.Rows(i)
    End If
Next

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 14:48:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 15:41:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：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 = ""
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106092 积分：539565 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 16:44:00 [显示全部帖子]

选中要合并的数据了吗？

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

 回到顶部
总数 16 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.05078 秒, 5 次数据查询