Dim dr As DataRow = DataTables("入库单").Find("货号 = '" & e.DataRow("货号") & "' And 颜色 = '" & e.DataRow("颜色") & "' And 尺码号 = '" & e.DataRow("尺码号") & "'")