代码出错怎样改哟 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码出错怎样改哟

共有2263人关注过本帖树形打印复制链接主题：代码出错怎样改哟

qctv

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

加好友

发短信

等级：幼狐帖子：164 积分：2002 威望：0 精华：0 注册：2008/9/7 0:06:00

代码出错怎样改哟 发帖心情

Post By：2016/3/14 17:29:00 [只看该作者]

If e.DataCol.Name = "项目编号" Then '发生变化的是物料编号吗?
    '在项目报告管理表找出该产品
    Dim dr As DataRow
    dr = DataTables("项目报告管理表").Find("项目编号 = '" & e.DataRow("项目编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("归属项目")= dr("项目类型")
        e.DataRow("日期")= dr("申报时间")
        e.DataRow("领料单位")= dr("项目单位")
        e.DataRow("类别")= dr("标识")
    End If
End If

我想要的效果能否用按钮实现，对比父表项目报告管理表和子表的材料表，如果项目编号一致，就将对应列的内容复制过去

此主题相关图片如下：qq截图20160314162802.png

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/14 18:12:00 [只看该作者]

Dim r As Row = Tables("某表").Current
Dim dr As DataRow
dr = DataTables("项目报告管理表").Find("项目编号 = '" & r("项目编号") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
    r("归属项目")= dr("项目类型")
    r("日期")= dr("申报时间")
    r("领料单位")= dr("项目单位")
    r("类别")= dr("标识")
End If