专家坐堂-[求助]请专家给下述代码进行指导修正Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请专家给下述代码进行指导修正  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=196475)

--  作者：hrw68529
--  发布时间：2025/5/1 9:25:00
--  [求助]请专家给下述代码进行指导修正

下述代码，请专家给予指导，目的是将上午和下午的值班人员，按值班日期写入“值班员_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

--  作者：foxtablefanse
--  发布时间：2025/5/1 15:15:00
--

\'如果刚刚输入的是值班日期列
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