16-05-18, 09:41 AM
ضع هذا الكود فى نهاية كود تحميل النموذج
كود :
TextBox4.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي'")
TextBox5.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي أول'")
TextBox6.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='عريف'")
TextBox7.Text = DataSet1.Tables("Embo2018").Rows.Count