Foxtable(狐表)用户栏目专家坐堂 → [求助]跨表格记录条目的同步更新


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

主题:[求助]跨表格记录条目的同步更新

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/11/29 13:53:00 [显示全部帖子]

    Case "检查结果", "复查日期1", "复查结果1"
        If e.DataRow.Isnull("检查日期1") = False Then
            Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = '" & e.DataRow("检查日期1") & "' and 单位名称='" & e.DataRow("单位名称") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
        Else
            msgbox("请先输入检查日期1")
        End If
End Select

 回到顶部