子表,datacolchanged事件写代码
Select Case e.DataCol.name
Case "离职日期", "到期日期"
Dim bh10 As String = e.DataRow("编号")
Dim ld10 As String
Dim cmd10 As New SQLCommand
cmd10.ConnectionName = "主数据源"
cmd10.CommandText = "Select top 1 " & e.DataCol.name & " From {YW_人员管理离职管理} Where 编号 = '" & bh10 & "' Order by 创建时间 Desc"
ld10 = cmd10.ExecuteScalar()
If ld10 <> Nothing andalso ld10 <= Date.Today Then
e.datarow.getparentrow("父表名")("在职状态") = "离职"
Else
e.datarow.getparentrow("父表名")("在职状态") = "在职"
End If
End Select