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

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

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

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

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

委托付款表datacolchanged事件

Select Case e.DataCol.Name

Case "cgysID"

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

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

End Select

委托付款表DataRowAdded事件事件

Dim cnt As Integer = Tables("tblwtfk").Rows.Count

For Each r As Row In Tables("tblwtfk").Rows

r("zqs") = cnt

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/11/3 16:45: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

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

End If

End Select

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