主题：代码哪错了?

Dim dr As DataRow= e.DataRow
Dim weeknum As String = CStr(DatePart("ww" , Date.Today)).PadLeft(2,"0")
dr("两周需求") = (dt1.Compute("Sum(W" & weeknum & ")") + dt1.Compute("Sum(W" & weeknum + 1 & ")") * (fdr("标准宽mm")*fdr("标准长M")/1000*(1+fdr("材料损耗率")/100)+fdr("调机损耗M")*fdr("标准宽mm")/1000/125000*1000 )*1.05

没有实际例子做参考、测试，就会出低级错误，这里根据原来的例子，估摸着写了。