Select Case e.DataCol.Name
Case "设备名称","计划开始日期"
If e.DataRow.IsNull("设备名称") OrElse e.DataRow.IsNull("计划开始日期")
Else
Dim d As Date = e.DataRow("计划开始日期")
Dim dr As DataRow = DataTables("试验室设备运行情况").Find("设备名称='" & e.DataRow("设备名称") & "' and 月份='" & d.month & "'")
If dr Is Nothing Then
dr = DataTables("试验室设备运行情况").AddNew()
dr("设备名称") = e.DataRow("设备名称")
dr("年份") = d.year
dr("月份") = d.month
End If
If e.DataRow.IsNull("计划完成日期") = False Then
Dim d1 As Date = e.DataRow("计划完成日期")
Do While d <= d1
dr("设备运行情况_" & d.Day) = "P"
d = d.AddDays(1)
Loop
Else
dr("设备运行情况_" & d.Day) = "P"
End If
End If
End Select
Select Case e.DataCol.Name
Case "设备名称","计划完成日期"
If e.DataRow.IsNull("设备名称") OrElse e.DataRow.IsNull("计划完成日期")
Else
Dim d As Date = e.DataRow("计划完成日期")
Dim dr As DataRow = DataTables("试验室设备运行情况").Find("设备名称='" & e.DataRow("设备名称") & "' and 月份='" & d.month & "'")
If dr Is Nothing Then
dr = DataTables("试验室设备运行情况").AddNew()
dr("年份") = d.year
dr("设备名称") = e.DataRow("设备名称")
dr("月份") = d.month
End If
If e.DataRow.IsNull("计划开始日期") = False Then
Dim d1 As Date = e.DataRow("计划开始日期")
Do While d1 <= d
dr("设备运行情况_" & d.Day) = "P"
d = d.AddDays(-1)
Loop
Else
dr("设备运行情况_" & d.Day) = "P"
End If
End If
End Select
上述代码存在以下问题：
1、首次录入存在以下问题：
此主题相关图片如下：2021-02-05_105757.jpg
2、更改日期时，填充符号P只能增加，不能减少；例如：当日期由20变15日，15~20间的填充符不会变，特别是牵涉到月份改变时，已产生的填充符不会消除；
此主题相关图片如下：2021-02-05_111002.jpg
以上，望大神帮助，谢谢！
加好友 
发短信
Post By：2021/2/5 11:17:00 [只看该作者]
