主题：求填充公式

请帮我看看，怎么加上红色的一段就不行了，谢谢

Dim dt As DataTable = DataTables("产品工序")
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "图号","材料_重量Kg","材料_成品单价元","材料_废品单价元"
        dr("材料成本_单价元") = dr("材料_重量Kg")*dr("材料_成品单价元")
        dr("材料成本_报废元") = dr("材料_重量Kg")*dr("材料_废品单价元")
End Select
Dim str As String = "图号 = '" & dr("图号") & "' And 状态 = '执行'"
if e.DataCol.Name = "图号" Then
    Dim r As DataRow = dt.Find(str)
    if r IsNot Nothing Then
        dr ("工时_准结") = (dt.Compute("Sum(工时_准结)",str))/60
        dr("工时_加工") = (dt.Compute("Sum(工时_加工)",str))
    End If
End If
If e.DataCol.Name = "材料_材质" Then
    '在行政区域表查找所输入省市和县市的行
    dr = DataTables("基础表").Find(" [材料] = '" & e.DataRow("材料_材质") & "'")
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号?邮编内容填入到正在输入的行中.
        e.DataRow("材料_成品单价元") = dr("材料单价")
        e.DataRow("材料_废品单价元") = dr("废料单价")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("材料_成品单价元") = Nothing
        e.DataRow("材料_废品单价元") = Nothing
    End If
End If
If e.DataCol.Name = "确定" Then '如果是已结帐列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        e.DataRow.Locked = True '那么锁定此行
    End If
End If