12-10-18, 10:05 PM
السلام عليكم ورحمة الله
عندي كود يستعده البيانات من قاعدة البيانات
شغال بس مشكلتي مع DataGridViewCheckBoxColumn
اريد اضيفه في DataGridView2
وفي العرض يطلع لي مكرر
[attachment=19818]
الشكل العادي شغال تمام
[attachment=19819]
وهذا الكود
بارك الله فيكم
وشكرا لكم
عندي كود يستعده البيانات من قاعدة البيانات
شغال بس مشكلتي مع 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
وشكرا لكم