共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]
1楼
jxb127705 发表于：2024/6/24 11:28:00开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信息表中某行填写”项目名称“字段，相关数据正常引用，完成后，再双击"项目名称“单元格进行文字修改，字段内容不清空，修改后的内容在《项目合同信息表》中无对应的项目名称，此时，引用的相关数据无变化。见下图：
希望是：在本表格内：”项目名称“内容修改后，能自动根据项目名称来更新引用的数据。求助老师
2楼
有点蓝 发表于：2024/6/24 11:58:00http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
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("项目负责人")
else
e.DataRow("项目编号") = Nothing
e.DataRow("建设单位") = Nothing
e.DataRow("项目负责人") = Nothing
End If
End If
End If
共2 条记录, 每页显示 10 条, 页签:
[1]