Select Case e.Col.name Case "Ⅰ级包装_包装材料一_长", "Ⅰ级包装_包装材料一_宽", "Ⅰ级包装_包装材料一_高", "Ⅰ级包装_包装材料一_纸箱", "Ⅰ级包装_包装材料一_重量" Dim dr As DataRow = DataTables("包材数据库").Find("[包材编码] = '" & e.Row("Ⅰ级包装_包装材料一_编码") & "'") If dr IsNot Nothing e.cancel = True End If End Select