Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表B中datacolchanged事件程序统计数据写到表A中


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

主题：表B中datacolchanged事件程序统计数据写到表A中
帅哥哟，离线，有人找我吗？
小螺号
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：663 威望：0 精华：0 注册：2021/7/26 15:13:00 		表B中datacolchanged事件程序统计数据写到表A中  发帖心情 Post By：2022/9/23 22:40:00 [只看该作者]

有A表单位信息表，B表人员信息表，并以所在单位建立关联，现想在B表中的“编制类型”列发生变化时自动统计在A表中的“行政编制”、“事业编制”、“工勤编制”三列中，在表B中的datacolchanged事件中编辑了如下程序后总是报错，请高手指点：

If e.DataCol.Name = "编制类型" Then
    Dim Values As New List(Of String) From {"行政编制", "事业编制", "工勤编制"}
    For Each Value As String In Values
        If Value = "行政编制" Then
           DataTables("表A").dataRows("实有_行政编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='行政编制'") 
        ElseIf Value = "事业编制" Then
           DataTables("表A").dataRows("实有_事业编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='事业编制'") 
        ElseIf Value = "工勤编制" Then
           DataTables("表A").datarows("实有_工勤编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='工勤编制'") 
            Exit For
        End If
    Next
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/9/24 9:20:00 [只看该作者]

If e.DataCol.Name = "编制类型" Then
dim dr as datarow = DataTables("表A").Find("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "'") 
if dr isnot nothing then
if e.oldvalue > "" then
dr("实有_" & e.oldvalue) = e.DataTable.Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='" & e.oldvalue & "'") 
end if
if e.newvalue > "" then
dr("实有_" & e.newvalue ) = e.DataTable.Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='" & e.newvalue  & "'") 
end if
end if
End If
 回到顶部
帅哥哟，离线，有人找我吗？
小螺号
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：663 威望：0 精华：0 注册：2021/7/26 15:13:00 		  发帖心情 Post By：2022/9/24 22:55:00 [只看该作者]

感谢有点蓝，我好好消化一下。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询