各位大师周末辛苦!!在表格“资质证书”中的“状态”列值为“出借”时,要求在表格“出借登记”中新增一行,并“资质证书”表中的姓名、证书类型等自动填写到新增行的相应列。请大师指导,谢谢!!
以下是我的代码,但中间部间部分不知怎么写才能对新增行的表格自动填充相应内容。
'------------根据某列的变化,从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