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


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

主题：将对应期的委托付款返回给立项表中的相关列中。
帅哥哟，离线，有人找我吗？
地瓜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		将对应期的委托付款返回给立项表中的相关列中。  发帖心情 Post By：2017/11/3 10:16:00 [只看该作者]

在“立项表”中进行某期的委托付款后，来到“委托付款”表中，输入委托金额后，能把当前的委托金额返回到“立项表”中对应期数的委托金额列中，同时总期数也可自动统计。

图片点击可在新窗口打开查看此主题相关图片如下：委托付款问题.jpg
图片点击可在新窗口打开查看
项目文件：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:综合办公管理平台.rar

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


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


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/11/3 11:19:00 [只看该作者]

但是总期数是当前采购预算编号的记录的所有的行加起来的。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
地瓜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/11/3 12:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：期数.jpg
图片点击可在新窗口打开查看是想实现这样的效果，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
地瓜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/11/3 15:23:00 [只看该作者]

谢谢！还有一个问题需要麻烦一下，就是在“委托付款”表中能将第几期的金额返回到“立项表”中的委托情况的对应第几期的金额，比如：委托付款表中的当前期数是1，那么将该金额返回给立项表中的委托情况的第一期的金额列中，我捣鼓了好久也没有实现，谢谢！

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：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
        Next
    Case "dqqs"
        Dim dr As DataRow = DataTables("立项表").Find("采购单位='" & e.datarow("采购单位") & "'")
        If dr IsNot Nothing Then
            dr("第一期金额") = e.datarow("金额")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
地瓜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：3007 威望：0 精华：0 注册：2012/8/30 16:09:00 		  发帖心情 Post By：2017/11/3 17:09:00 [只看该作者]

那如果是第二期或是第三期的金额该如何调用返回到立项表中呢？谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
        Next
    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 If
End Select
 回到顶部
总数 11 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.05469 秒, 5 次数据查询