代码冲突求助?我有二个代码都是从一个列中引用的,冲突了求助,代码如下:
'开始从事件日期计算星期几
If e.DataCol.Name = "事件事件日期" Then
If e.NewValue = Nothing Then
e.DataRow("星期几") = Nothing
Else
e.DataRow("星期几") = Format(e.DataRow("事件事件日期"), "dddd")
End If
End If
'开始从事件日期计算第几周
If e.DataCol.name="事件日期" AndAlso e.DataRow.IsNull("事件日期")=False Then
Dim d1 As Date = e.DataRow("事件日期")
Dim d2 As new Date(d1.Year,1,1)
e.DataRow("第几周")=DateDiff("ww",d2,d1)+1
End If