Dim fdr As DataRow = DataTables("表A").find("',' + 产品号 + ',' like '%," & e.DataRow("产品号") & ",%'")
If fdr IsNot Nothing Then