sqlin = sqlin & " SUM(CartonTotal) CartonTotal,SUM(Weight) Weight,SUM(Weight) - SUM(CartonTotal) GrossWeight, "
sqlin = sqlin & " SUM(Volume) Volume,Min(CartonNo) CartonNo,OrderNo,NULL TRate,NULL InvoiceNo,ShipEnName Parts,PGEntryID "
sqlin = sqlin & " From tb_sp_ShipEntry Where PGEntryID In ('2210129218f837eb01','2210129218f822d603','2210129218f82b07e7','2210129218f895a400') "
sqlin = sqlin & " GROUP BY PlanID,ContainerID,Org,PackNo,MatNo,PartsCN,Parts,Currency, "
sqlin = sqlin & " EnUnit,OrderNo,ShipEnName,PGEntryID "
'sqlin = sqlin & " Order By PlanID,ContainerID,Org,PackNo,CartonNo "
output.Show(sqlin)
cmd.CommandText = sqlin
Dim Count As Integer = cmd.ExecuteNonQuery()
output.Show(Count )