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

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