'''
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 e.DataRow("天数") > 0.5 Then
e.DataRow("城市间交通费")= dr("城市间交通费")
e.DataRow("市内交通费") = dr("市内交通费")
e.DataRow("注意事项") = dr("注意事项")
If e.DataRow("出差地点") = "小坝城区" Then '如果在小坝城区出差,做个判断,在其它地方出差正常
Dim dr2 As DataRow = DataTables("职工信息总表").Find("小坝住房 = flase and 姓名 in ('" & e.DataRow("出差人").replace("、","','") & "')")
If dr2 IsNot Nothing
e.DataRow("伙食费") = dr2 ("伙食补助") '这个代码的意思是想:如果在小坝出差,就到另一个表中判断出差的这个人,是否在小坝有住房
End If
Else
e.DataRow("住宿费") = "无住宿费"
End If
Else
e.DataRow("伙食费") = dr("伙食补助")
End If
Else
e.DataRow("城市间交通费")= dr("城市间交通费")
e.DataRow("市内交通费") = dr("市内交通费")
e.DataRow("伙食费") = "无伙食补助"
'e.DataRow("伙食费") = dr("伙食补助")
e.DataRow("住宿费") = "无住宿费"
' 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
加好友 
发短信
Post By：2020/1/7 17:45:00 [显示全部帖子]
