Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于单元格值改变影响它表问题


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

主题：[求助]关于单元格值改变影响它表问题
帅哥哟，离线，有人找我吗？
bashanren
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		[求助]关于单元格值改变影响它表问题  发帖心情 Post By：2018/12/22 11:07:00 [只看该作者]

各位大师周末辛苦！！
在表格“资质证书”中的“状态”列值为“出借”时，要求在表格“出借登记”中新增一行，并“资质证书”表中的姓名、证书类型等自动填写到新增行的相应列。请大师指导，谢谢！！
以下是我的代码，但中间部间部分不知怎么写才能对新增行的表格自动填充相应内容。

'------------根据某列的变化,从A表自动提取各列的数据填充.

If e.DataCol.Name = "状态" Then '发生变化的是状态列?
    '在资质证件中找出该列
    Dim dr As DataRow
    dr = DataTables("资质证件").Find("状态 = '" & e.DataRow("状态") & "'" )

    If dr IsNot Nothing '如果找到, 则设置各列内容

If e.DataRow("状态").value = "出借" Then
Table("证件出借登记").addnew




        e.DataRow("证件名称")= dr("证件名称")
        e.DataRow("证件编号")= dr("证件编号")
  e.DataRow("证书级别")= dr("证书级别")
 e.DataRow("状态")= dr("状态")
End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/22 11:32:00 [只看该作者]

If e.DataCol.Name = "状态" Then '发生变化的是状态列?
    If e.DataRow("状态") = "出借" Then
        Dim dr As DataRow = e.DataRow
        Dim r As  Row = Table("证件出借登记").addnew
        r("证件名称")= dr("证件名称")
        r("证件编号")= dr("证件编号")
        r("证书级别")= dr("证书级别")
        r("状态")= dr("状态")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
bashanren
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：2018/12/22 13:25:00 [只看该作者]

谢谢蓝老师！！

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