表事件
维修工单录入_AfterLoad
Tables("维修工单录入").sort = "填表日期 desc "
Tables("维修工单录入").filter = "填表日期 >= #" & Date.Today.Adddays(-60) & "# "
设备台帐表_AfterLoad
Tables("设备台帐表").Sort = "_Identify DESC"
计量计划_DataColChanged
Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "本年实际检定日期" OrElse dc.Name = "周期天数" Then
If dr.IsNull("本年实际检定日期") OrElse dr.IsNull("周期天数") Then
dr("下一年检定日期") = Nothing
Else
dr("下一年检定日期") = dr("本年实际检定日期").AddDays(dr("周期天数"))
dr("Last") = True
End If
End If
计量计划_DrawCell
If e.Col.Name = "本年计划检定日期" Then
If e.Row.IsNull("本年计划检定日期") = False AndAlso e.Row.IsNull("本年实际检定日期") = True
If e.Row("本年计划检定日期") < Date.Today.AddDays(10) Then
e.Style = "到期提醒"
End If
End If
End If
If e.Col.Name = "本年计划检定日期" Then
If e.Row.IsNull("本年计划检定日期") = False AndAlso e.Row.IsNull("本年实际检定日期") = False
If e.Row("本年计划检定日期") < Date.Today.AddDays(10) Then
e.Style = "检定完成"
End If
End If
End If
检定流水记录_DataColChanged
If e.DataCol.Name = "状态" Then '如果内容发生变动的是品名列
' If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
' e.DataRow("状态") = Nothing '那么清空此行单价列的内容
' Else
Dim dr As DataRow
Dim da As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
' dr = DataTables("计量计划").Find("[id] = '" & e.NewValue & "'")
dr = DataTables("计量计划").Find("[id] = '" & e.DataRow("id") & "'")
da = DataTables("计量台帐").Find("[校准编号] = '" & e.DataRow("校准编号") & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
dr("状态") = e.DataRow("状态")
da("状态") = e.DataRow("状态")
End If
' End If
End If
加好友 
发短信
Post By：2018/6/11 9:53:00 [只看该作者]
此主题相关图片如下：快照-1.jpg