主题：处理自动录显示问题

看看你的条件，全部是钢材规格:

fls = "盘具名称 = '" & dr1("品种") & "' And 钢材规格 = '" & dr1("型钢_规格") & "' And 钢材规格 = '" & dr1("排档_规格") & "'And 钢材规格 = '" & dr1("托圈_规格") & "' And 钢材规格 = '" & dr1("角钢腰圈_规格") & "' And 钢材规格 = '" & dr1("元钢腰圈_规格") & "' And 钢材规格 = '" & dr1("拉丝圆_规格") & "' And 钢材规格 = '" & dr1("中板_规格") & "' And 钢材规格 = '" & dr1("护缆圈_规格") & "' And 钢材规格 = '" & dr1("钢管_规格") & "' And 钢材规格 = '" & dr1("加固角钢_规格") & "' And 钢材规格 = '" & dr1("螺母_规格") & "' And 钢材规格 = '" & dr1("弹垫_规格") & "'"                                               

每一行的钢材规格列只是一个值，怎么可能同时等于多个值？ 这等于你要求一个人身高必须同时等于150、160、170、180cm，会有这样的人吗，因为人的身高只有一个。

你应该拆分成多个：

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

错误提示明确地告诉你错误代码所在位置： Case "品种",""排档_规格"

很明显，代码多了一个双引号，应该是：Case "品种","排档_规格"

这段我测试有效，重置盘具成本的品种列，盘具成本表两行的型钢单价变为5.6，说明代码起作用：

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