开piao信息表
If e.DataCol.Name = "项目名称" Then
If e.NewValue Is Nothing Then
e.DataRow("项目编号") = Nothing
e.DataRow("建设单位") = Nothing
e.DataRow("项目负责人") = Nothing
Else
Dim dr As DataRow
dr = DataTables("项目合同信息表").Find("[项目名称] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("项目编号") = dr("项目编号")
e.DataRow("建设单位") = dr("建设单位")
e.DataRow("项目负责人") = dr("项目负责人")
End If
End If
End If
开piao信息表数据根据《项目合同信息表》的“项目名称”引用相关数据，在开piao信息表中某行填写”项目名称“字段，相关数据正常引用，完成后，再双击"项目名称“单元格进行文字修改，字段内容不清空，修改后的内容在《项目合同信息表》中无对应的项目名称，此时，引用的相关数据无变化。见下图：
希望是：在本表格内：”项目名称“内容修改后，能自动根据项目名称来更新引用的数据。求助老师
加好友 
发短信
Post By：2024/6/24 11:28:00 [只看该作者]
