[حريف برمجة]

(18-12-17, 02:30 PM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

إخواني الأكارم لو تكرّمتم فضل و إحسان منكم .. المساعدة بإيجاد عدد الذّكور و عدد الإناث و كتابة الناتج المتغيّر حسب الإدخال بالتاكسات 1 و 2 بالفورم 3 الخاص بالإحصاء

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

وعليكم السلام ورحمة الله وبركاته 

تفضل اخي عبدالعزيز

كود مختصر :

كود :

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dbase_conn()
       InfoAdapter = New OleDbDataAdapter("SELECT * FROM RECENSEMENT ORDER BY Nname", con)
       InfoTable = New DataTable()
       InfoAdapter.Fill(InfoTable)
       DataGridView1.DataSource = InfoTable


       InfoAdapter = New OleDbDataAdapter("SELECT Sum(IIf([Ggenre]= 'ذكر',1,0)) AS Male, Sum(IIf([Ggenre] = 'أنثى',1,0)) AS Female FROM RECENSEMENT", con)
       InfoTable = New DataTable()
       InfoAdapter.Fill(InfoTable)

       TextBox1.Text = InfoTable.Rows(0)(0).ToString
       TextBox2.Text = InfoTable.Rows(0)(1).ToString
   End Sub