سلام

مشکل کد زیر کجاست که تکراری نمایش میده ؟

            Dim da As New SqlDataAdapter("SELECT distinct tblcustomer.name,tblconsignment.idl,tblconsignment  .weight,tblconsignment.indate,tblOutConsignment.Id  o,tblOutConsignment.idc,tblOutConsignment.idl,tblO  utConsignment.kharid_carton,tblOutConsignment.cart  on_number,tblOutConsignment.carton_price,tblOutCon  signment.carton_total,tblOutConsignment.kharid_rog  han,tblOutConsignment.roghan_number,tblOutConsignm  ent.roghan_price,tblOutConsignment.roghan_total,tb  lOutConsignment.kharid_plastic,tblOutConsignment.p  lastic_number,tblOutConsignment.plastic_price,tblO  utConsignment.plastic_total,tblOutConsignment.khar  id_shring,tblOutConsignment.shring_number,tblOutCo  nsignment.shring_price,tblOutConsignment.shring_to  tal,tblOutConsignment.package_tape,tblOutConsignme  nt.grade1,tblOutConsignment.grade2,tblOutConsignme  nt.grade3,tblOutConsignment.sort_price_package,tbl  OutConsignment.other_price,tblOutConsignment.sort_  price,tblOutConsignment.out_date,tblOutConsignment  .gale,tblOutConsignment.discount,tblOutConsignment  .all_total,tblOutConsignment.disc,tblOutConsignmen  t.sal_mali,tblOutConsignment.darsad_drop,tblOutCon  signment.weight_pure,tblOutConsignment.weight_drop  ,tblOutConsignment.deposit,tblOutConsignment.remai  ns,tblOutConsignment.clearing FROM tblcustomer,tblconsignment,tblOutConsignment WHERE tblcustomer.idc=tblOutConsignment.idc AND tblcustomer.idc IN(SELECT distinct tblOutConsignment.idc FROM tblOutConsignment WHERE tblconsignment.idl=tblOutConsignment.idl)", con)