主题：数据不自动改变

我在参数表中改娈材料单价，盘具成本表中的单价不自动改变，是不是代码有问题，请师傅帮助修正。

Select Case e.DataCol.Name
    Case "品种","型钢_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("型钢_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("型钢_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","排档_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("排档_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("排档_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","钢管_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("钢管_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("钢管_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","托圈_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("托圈_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("托圈_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","中板_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("中板_规格") & "'"
       
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("中板_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","元钢腰圈_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("元钢腰圈_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("元钢腰圈_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","加固角钢_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("加固角钢_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("加固角钢_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","护缆圈_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("护缆圈_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("护缆圈_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "拉丝圆_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "钢材规格 = '" & dr1("拉丝圆_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
        dr1("拉丝圆_单价") = dr2("钢材单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "品种","角钢腰圈_规格"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "盘具品种 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("角钢腰圈_规格") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("角钢腰圈_单价") = dr2("钢材单价")
        End If
End Select