06-06-15, 01:09 AM
الحمد لله تم الوصول الى الحل وبواسطه الشرح للاستاذ احمد النجار
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
Dim fat = (From d In DBVariable.Data.masterfatoras Join s In DBVariable.Data.fatoras On d.ID Equals s.mid
Join asn In DBVariable.Data.asnafs On s.idname Equals asn.ID
Join sup In DBVariable.Data.suppliers On d.idmord Equals sup.ID
Where d.num.Contains(txt)
Select asn.code, asn.Name, asn.unit, s.qty, s.price, s.totprice)
gridshraa.DataSource = fat
gridshraa.Columns(0).HeaderText = "كود الصنف"
gridshraa.Columns(1).HeaderText = "اسم الصنف"
gridshraa.Columns(2).HeaderText = "الوحدة"
gridshraa.Columns(3).HeaderText = "ألكميه"
gridshraa.Columns(4).HeaderText = "سعر "
gridshraa.Columns(5).HeaderText = "الاجمالى"
gridshraa.DataSource = fat
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
Dim fat = (From d In DBVariable.Data.masterfatoras Join s In DBVariable.Data.fatoras On d.ID Equals s.mid
Join asn In DBVariable.Data.asnafs On s.idname Equals asn.ID
Join sup In DBVariable.Data.suppliers On d.idmord Equals sup.ID
Where d.num.Contains(txt)
Select asn.code, asn.Name, asn.unit, s.qty, s.price, s.totprice)
gridshraa.DataSource = fat
gridshraa.Columns(0).HeaderText = "كود الصنف"
gridshraa.Columns(1).HeaderText = "اسم الصنف"
gridshraa.Columns(2).HeaderText = "الوحدة"
gridshraa.Columns(3).HeaderText = "ألكميه"
gridshraa.Columns(4).HeaderText = "سعر "
gridshraa.Columns(5).HeaderText = "الاجمالى"
gridshraa.DataSource = fat

