以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教，一个跨表引用的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17295)
--  作者：akzzwj
--  发布时间：2012/3/9 10:14:00
--  求教，一个跨表引用的问题

我有两张表 一个是人员表，一个是人员转正 表

想实现在人员转正 表 中输入被转正人工号后，修改该人员转正表的转正日期，那么该人员的转正时间也自动更新。

为此，我们可以在人员表的DataColChanged事件中加入如下代码该怎么写呢：

 


此主题相关图片如下：100.jpg
按此在新窗口浏览图片

此主题相关图片如下：101.jpg
按此在新窗口浏览图片
--  作者：akzzwj
--  发布时间：2012/3/9 10:24:00
--  
If e.DataCol.Name = "工号" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[被转正人工号] = \'" & dr("工号") & "\'And 被转正人 =\'" & dr("姓名") & "\'"
    dr= DataTables("人员转正").Find(Filter)
    If dr IsNot Nothing Then
        dr("转正时间")=dr("转正日期")
        dr("状态")="正式"
    End If
--  作者：akzzwj
--  发布时间：2012/3/9 10:24:00
--  
我写的代码 是像上面这样 但是 有问题
--  作者：akzzwj
--  发布时间：2012/3/9 10:24:00
--  

高手 请帮我看一下，代码错在哪里？

 
--  作者：akzzwj
--  发布时间：2012/3/9 10:29:00
--  
狐狸爸爸 在吗 帮我看一下
--  作者：czy
--  发布时间：2012/3/9 10:32:00
--  

大概这样子吧。

 

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "被转正人工号" Then
    If dr.IsNull("被转正人工号") = False Then
        Dim dr1 As DataRow = DataTables("人员").Find("工号 = \'" & dr("被转正人工号") & "\'")
        If dr1 IsNot Nothing Then
            dr("被转正人") = dr1("姓名")
            dr("转正时间") = Today
            dr1("转正时间") = Today
        End If
    End If
End If
--  作者：狐狸爸爸
--  发布时间：2012/3/9 10:36:00
--  

同一个表，这么负责干什么：

 

If e.DataCol.Name = "工号" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("工号") Then
        dr("转正时间")= Nothing
        dr("状态") = "临时"
    Else
        dr("转正时间")=dr("转正日期")
        dr("状态")="正式"
    End If
End If