منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استفسار :- بخصوص DataGridViewCheckBoxColumn
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله

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

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

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

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

[attachment=19818]

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

[attachment=19819]



وهذا الكود

كود :
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
بارك الله فيكم
وشكرا لكم