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.month
End If
If e.DataRow.IsNull("计划完成日期") = False Then
Dim d1 As Date = e.DataRow("计划完成日期")
Do While d <= d1
dr("设备运行情况_" & d.Day) = "Y"
d = d.AddDays(1)
Loop
Else
dr("设备运行情况_" & d.Day) = "Y"
End If
End If
End Select
另外一段代码自行参考改一下
加好友 
发短信
Post By：2021/2/4 15:02:00 [显示全部帖子]
