| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于单元格值改变影响它表问题 (http://foxtable.com/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 -- 谢谢蓝老师！！ |