If e.DataCol.Name = "审核" Then Dim dr As DataRow = DataTables("生产车").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'") If dr IsNot Nothing Then dr("审核") = e.DataRow("审核") End If Else Dim dr As DataRow = DataTables("生产磨").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'") If dr IsNot Nothing Then dr("审核") = e.DataRow("审核") End If End If