以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于单元格值改变影响它表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129137)

--  作者:bashanren
--  发布时间: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

--  作者:有点蓝
--  发布时间: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
--  发布时间:2018/12/22 13:25:00
--  
谢谢蓝老师!!