15-09-16, 07:07 PM
لقد وجدت الحل شكرا للشبابا
PHP كود :
Sub FillGrid()
Dim cbb As New DataGridViewComboBoxColumn() With {.HeaderText = "العملة"}
cbb.Items.Add("شيقل.ج")
cbb.Items.Add("د.اردني")
cbb.Items.Add("د.امريكي")
cbb.Items.Add("يورو")
cbb.Items.Add("ر.صيني")
'ADD BUTTON
Dim btnDelete As New DataGridViewButtonColumn()
Dim btnImage As New DataGridViewButtonColumn()
MetroGrid2.Columns.Insert(0, btnDelete)
MetroGrid2.Columns.Add("", "المبلغ المرسل")
MetroGrid2.Columns.Insert(2, cbb)
MetroGrid2.Columns.Add("", "العمولة")
MetroGrid2.Columns.Add("", "أسم المستقبل")
MetroGrid2.Columns.Add("", "هاتف المستقبل")
MetroGrid2.Columns.Add("", "البلد المستقبل")
MetroGrid2.Columns.Add("", "أسم المرسل")
MetroGrid2.Columns.Add("", "هاتف المرسل")
MetroGrid2.Columns.Add("", "الشركة المستقبلة")
MetroGrid2.Columns.Add("", "تاريخ التسجيل")
MetroGrid2.Columns.Insert(11, btnImage)
MetroGrid2.Columns.Add("", "الملاحظات")
MetroGrid2.Columns.Add("", "ID")
MetroGrid2.Columns(13).Visible = False
Const sql As String = "SELECT * FROM money_sent"
Dim adt As New SqlDataAdapter(sql, Conn)
Dim dt As New DataTable
adt.Fill(dt)
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
MetroGrid2.Rows.Add()
MetroGrid2.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(1)
Dim cell As DataGridViewComboBoxCell = DirectCast(MetroGrid2.Rows(i).Cells(2), DataGridViewComboBoxCell)
cell.Value = dt.Rows(i).ItemArray(2)
MetroGrid2.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(3)
MetroGrid2.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(4)
'DataGridView1.Rows(i).Cells(4).Value = "DELETE"
MetroGrid2.Rows(i).Cells(5).Value = dt.Rows(i).ItemArray(5)
MetroGrid2.Rows(i).Cells(6).Value = dt.Rows(i).ItemArray(6)
MetroGrid2.Rows(i).Cells(7).Value = dt.Rows(i).ItemArray(7)
MetroGrid2.Rows(i).Cells(8).Value = dt.Rows(i).ItemArray(8)
MetroGrid2.Rows(i).Cells(9).Value = dt.Rows(i).ItemArray(9)
MetroGrid2.Rows(i).Cells(10).Value = dt.Rows(i).ItemArray(10)
MetroGrid2.Rows(i).Cells(12).Value = dt.Rows(i).ItemArray(12)
MetroGrid2.Rows(i).Cells(13).Value = dt.Rows(i).ItemArray(0)
Next
End Sub
