Dim dr As DataRow = DataTables("ZJJHB").Find("产品编号 = '" & e.DataRow("产品编号") & "'")If dr IsNot Nothing Then e.Datarow("JZ") = FalseEnd If