[dubai.eig]

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

عندي كود يستعده البيانات من قاعدة البيانات 

شغال بس مشكلتي مع DataGridViewCheckBoxColumn

اريد اضيفه في DataGridView2

وفي العرض يطلع لي مكرر

   

الشكل العادي شغال تمام

   



وهذا الكود

كود :

Dim con As New SQLiteConnection(SQLiteconnstring)
               Dim com As String = String.Format("SELECT Qso_id,CALLop ,qso_date ,timek ,bands ,modes ,rst_sent,rst_rcvd  FROM DB{0} Where CALLop like  '{1}' order by qso_date DESC , timek desc", strca, calls.Text)
               Dim Adpt As New SQLiteDataAdapter(com, con)
               Dim ds As New DataSet()
               Adpt.Fill(ds, String.Format("DB{0}", strca))
               DataGridView2.DataSource = ds
               DataGridView2.DataMember = String.Format("DB{0}", strca)



               With DataGridView2



                   Dim col As New DataGridViewCheckBoxColumn
                   col.HeaderText = "Tag"
                  .Columns.Add(col)


                   .Columns(0).Visible = False
                   .Columns(1).HeaderCell.Value = "Call Sign"
                   .Columns(1).Width = "100"

                   .Columns(2).HeaderCell.Value = "Date"
                   .Columns(2).Width = "100"

                   .Columns(3).HeaderCell.Value = "UTC"
                   .Columns(3).Width = "70"

                   .Columns(4).HeaderCell.Value = "Band"
                   .Columns(4).Width = "70"

                   .Columns(5).HeaderCell.Value = "Mode"
                   .Columns(5).Width = "70"


                   .Columns(6).HeaderCell.Value = "rst sent"
                   .Columns(6).Width = "60"

                   .Columns(7).HeaderCell.Value = "rst rcvd"
                   .Columns(7).Width = "60"




                   Label1.Text = .Rows.Count - 0
                   Text = String.Format("Number of QSO : {0}  ", Label1.Text)


               End With

بارك الله فيكم
وشكرا لكم