以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码冲突求助? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83874) |
-- 作者:zsslly -- 发布时间:2016/4/19 1:13:00 -- 代码冲突求助? 代码冲突求助?我有二个代码都是从一个列中引用的,冲突了求助,代码如下: \'开始从事件日期计算星期几 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 |
-- 作者:zsslly -- 发布时间:2016/4/19 1:13:00 -- 应该怎么合并呢? |
-- 作者:Hyphen -- 发布时间:2016/4/19 8:47:00 -- If e.DataCol.Name = "事件日期" Then If e.NewValue = Nothing Then e.DataRow("星期几") = Nothing Else Dim d1 As Date = e.DataRow("事件日期") Dim d2 As new Date(d1.Year,1,1) e.DataRow("第几周")=DateDiff("ww",d2,d1)+1 End If End If
|
-- 作者:zsslly -- 发布时间:2016/4/19 17:40:00 -- 谢谢大侠 |