将对应期的委托付款返回给立项表中的相关列中。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将对应期的委托付款返回给立项表中的相关列中。

共有2300人关注过本帖树形打印复制链接主题：将对应期的委托付款返回给立项表中的相关列中。

有点甜

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

加好友

发短信

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

Post By：2017/11/3 12:14:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "cgysID"

Dim max As Integer = e.DataTable.Compute("max(dqqs)","cgysID='" & e.NewValue & "' and _Identify <>" & e.DataRow("_Identify"))

e.DataRow("dqqs") = max + 1

e.DataRow("zqs") = e.DataTable.Compute("count(dqqs)","cgysID='" & e.NewValue & "'")

End Select

有点甜

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

加好友

发短信

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

Post By：2017/11/3 14:32:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "cgysID"
        Dim drs = e.DataTable.Select("cgysID='" & e.NewValue & "'")
        Dim i As Integer = 1
        For Each dr As DataRow In drs
            dr("dqqs") = i
            dr("zqs") = drs.count
            i+=1
        Next
End Select

有点甜

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

加好友

发短信

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

Post By：2017/11/3 17:10:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "cgysID"

Dim drs = e.DataTable.Select("cgysID='" & e.NewValue & "'")

Dim i As Integer = 1

For Each dr As DataRow In drs

dr("dqqs") = i

dr("zqs") = drs.count

i+=1

Case "dqqs", "采购单位", "金额"

Dim dr As DataRow = DataTables("立项表").Find("采购单位='" & e.datarow("采购单位") & "'")

If dr IsNot Nothing Then

If e.datarow("dqqs") = 1 Then

dr("第一期金额") = e.datarow("金额")

ElseIf e.datarow("dqqs") = 2 Then

dr("第二期金额") = e.datarow("金额")

End If

End Select

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

主题：将对应期的委托付款返回给立项表中的相关列中。