[求助]一段代码不知错哪了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一段代码不知错哪了

共有3382人关注过本帖树形打印复制链接主题：[求助]一段代码不知错哪了

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/7 17:51:00 [显示全部帖子]

Dim r1 As Row
Dim r2 As Row
Dim r3 As Row
Dim x As Integer
Dim n As Integer
n=Tables("工序表").Rows.Count
Tables("工序表").Rows(0)("重量累计单价")=Tables("工序表").Rows(0)("重量单价")
For x=0 To n-2
    r1=Tables("工序表").Rows(x)
    r2=Tables("工序表").Rows(x+1)
    If r2("卷号")=r1("卷号") Then
        r2("重量累计单价")=r1("重量累计单价")+r2("重量单价")
    Else
        Dim new_n As String
        new_n=r2("卷号").SubString(0,8)
        r3=Tables("工序表").Rows(Tables("工序表").FindRow("[卷号] = '" & new_n & "'" ))
        r2("重量累计单价")= r3("重量累计单价")+r2("重量单价")
    End If
Next

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/7 18:01:00 [显示全部帖子]

Dim drs As List(Of DataRow) = DataTables("工序表").Select("", "卷号")
drs(0)("重量累计单价") = drs(0)("重量单价")
For i As Integer = 1 To drs.Count - 1
    If drs(i)("卷号") <> drs(i-1)("卷号") Then
        drs(i)("重量累计单价") = drs(i)("重量单价")
    Else
        drs(i)("重量累计单价") = drs(i-1)("重量累计单价") + drs(i)("重量单价")
    End If
Next

下一主题 >> << 上一主题

主题：[求助]一段代码不知错哪了