下述代码，请专家给予指导，目的是将上午和下午的值班人员，按值班日期写入“值班员_00白天”字段。谢谢
'如果刚刚输入的是省市或县市列
If e.DataCol.Name = "值班日期" Then
Dim dr As DataRow
Dim s1 As String
Dim s2 As String
'在行政区域表查找所输入省市和县市的行
dr = DataTables("值班排班表").Find("[值班日期] = '" & e.DataRow("值班日期") & "' and [时段区分]= '01上午'")
If dr IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
s1 = dr("值班人员_姓名")
Else
s1 = Nothing
End If
ElseIf dr = DataTables("值班排班表").Find("[值班日期] = '" & e.DataRow("值班日期") & "' And [时段区分]= '02下午'")
If dr IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
s2 = dr("值班人员_姓名")
Else
s2 = Nothing
End If
End If
e.DataRow("值班员_00白天") = s1 &" "& s2
End If
'如果刚刚输入的是值班日期列
If e.DataCol.Name = "值班日期" Then
Dim dr As DataRow
Dim dr2 As DataRow
Dim s1 As String
Dim s2 As String
'在值班日期例查找值班人员
dr = DataTables("值班排班表").Find("[值班日期] = '" & e.DataRow("值班日期") & "' and [时段区分]= '01上午'")
dr2 = DataTables("值班排班表").Find("[值班日期] = '" & e.DataRow("值班日期") & "' And [时段区分]= '02下午'")
If dr IsNot Nothing AndAlso dr2 IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
s1 = dr("值班人员_姓名")
s2 = dr2("值班人员_姓名")
Else
s1 = Nothing
s2 = Nothing
End If
e.DataRow("值班员_00白天") = s1 & " " & s2
End If