表事件DataColChanged中代码不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件DataColChanged中代码不起作用

共有2456人关注过本帖树形打印复制链接主题：表事件DataColChanged中代码不起作用

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

表事件DataColChanged中代码不起作用 发帖心情

Post By：2019/1/11 15:47:00 [只看该作者]

在“年度工资库”表事件中写入下面代码，但不起作用，没有数据增加到“工资年度汇总”表中

Dim dr As DataRow = e.DataRow

Dim filt As String = "姓名 = '" & dr("姓名") & "'And 员工编号 = '" & dr("员工编号") & "' And 年度 = " & dr("年度")

Select Case e.DataCol.Name

Case "员工编号"

Dim fdr As DataRow = DataTables("工资年度汇总").Find(filt)

If dr.IsNull("姓名") = False AndAlso dr.IsNull("年度") = False Then

If fdr Is Nothing Then

Dim ndr As DataRow = DataTables("工资年度汇总").AddNew()

ndr("姓名") = dr("姓名")

ndr("年度") = dr("年度")

ndr("员工编号") = dr("员工编号")

ndr.Save()

End If

End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工资月报.table

[此贴子已经被作者于2019/1/11 15:48:51编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2019/1/11 16:18:00 [只看该作者]

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "员工编号","姓名","年度"
        Dim filt As String = "姓名 = '" & dr("姓名") & "'And 员工编号 = '" & dr("员工编号") & "' And 年度 = " & dr("年度")
        Dim fdr As DataRow = DataTables("工资年度汇总").Find(filt)
        If dr.IsNull("姓名") = False AndAlso dr.IsNull("年度") = False Then
            If fdr Is Nothing Then
                Dim ndr As DataRow = DataTables("工资年度汇总").AddNew()
                ndr("姓名") = dr("姓名")
                ndr("年度") = dr("年度")
                ndr("员工编号") = dr("员工编号")
                ndr.Save()
            End If
        End If
End Select

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

主题：表事件DataColChanged中代码不起作用