老师好,想在黑色字体的代码中间加个判断,判断有点乱,不会弄了,请帮忙改一改,谢谢。
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "天数" Then '地点是列名
Dim Filter As String
Filter = "出差地点 = '" & dr("出差地点") & "'"
dr = DataTables("出差标准").Find(Filter)
If dr IsNot Nothing Then '如果找到
'在找到行的四个列中输入数据
If Tables("出差记录").Current("天数") > 0.5 Then
e.DataRow("城市间交通费")= dr("城市间交通费")
e.DataRow("市内交通费") = dr("市内交通费")
e.DataRow("注意事项") = dr("注意事项")
If Tables("出差记录").Current("出差地点") = ‘’小坝城区‘’ Then '如果在小坝城区出差,做个判断,在其它地方出差正常。
if DataTables("职工信息总表").Find("小坝住房 = flase and 姓名 in ('" & Tables("出差记录").Current("出差人").replace("、","','") & "')") then
e.DataRow("伙食费") = dr("伙食补助") ’这个代码的意思是想:如果在小坝出差,就到另一个表中判断出差的这个人,是否在小坝有住房
Else
Tables("出差记录").Current("住宿费") = "无住宿费"
End if
Else
e.DataRow("伙食费") = dr("伙食补助")
end if
Else
e.DataRow("城市间交通费")= dr("城市间交通费")
e.DataRow("市内交通费") = dr("市内交通费")
Tables("出差记录").Current("伙食费") = "无伙食补助"
'e.DataRow("伙食费") = dr("伙食补助")
Tables("出差记录").Current("住宿费") = "无住宿费"
' e.DataRow("住宿费") = dr("住宿补助")
e.DataRow("注意事项") = dr("注意事项")
End If
Else
'否则清除区号和邮编两列的内容
e.DataRow("城市间交通费") = Nothing
e.DataRow("市内交通费") = Nothing
e.DataRow("伙食费") = Nothing
e.DataRow("住宿费") = Nothing
e.DataRow("注意事项") = Nothing
End If
End If