سوال در مورد خواندن ليست comboboxcell از ديتا گريد ويو

[bad080boy]

سلام
يه data set تهيه كرده م كه باهاش يه ديتاگريد ويو رو پر كنم وليل يه ذره خاصه ... چند تا از ستون هاي ديتا گريد ويو بايد حالت combobox باشن تا ديتا هاي كمتري نشون داده بشن .
1- اولا اولين باري كه رديف جديد موقع پركردن گريدويو اضافه ميشه بجاي اينكه زير رديف صفرم بياره بالاش ميذاره .. ولي تو add. rows هاي بعدي درست كار ميكنه .. چرا ؟
2- حالا رسيده م به اونجا كه اگه يه سري اطلاعات ستون و رديف اول و دوم يكي بود بياد توي combobox cell كمبو باكس ستون 4 ام به اون آيتم هاش اضافه كنه .
ميخوام اضافه كنم نميشه . بايد اول آيتم هاي اوليه شو بدست بيارم بعد اضافه كنم ... تا ليست بدست بياد و بعد اضافه كنم و رفرشش كنم .

ولي نميدونم تو خوندن آيتم هاي يه كمبو باكس به چه اسمي و چه حالتي بخونمشون .


Dim drr AsDataRowFor t = 0 To dt.Rows.Count - 1
drr = dt.Rows(t)
Dim versionss AsNewDataGridViewComboBoxCell()
Dim TarikhFAs AsNewDataGridViewComboBoxCell()
Dim MablagheKols AsNewDataGridViewComboBoxCell()
For gg = 0 To dgvFaktorInfo.Rows.Count - 1

If ((dgvFaktorInfo.Rows(gg).Cells("SanadID").Value = drr("SanadID")) And _
(dgvFaktorInfo.Rows(gg).Cells("SanadID").Value IsNotNothingOr _
t = 0)) Then
If dgvFaktorInfo.Rows(gg).Cells("TozihIDs").Value = drr("TozihID") Then
Dim vvv AsNewDataGridViewComboBoxCell() = dgvFaktorInfo.Rows(gg).Cells("Versions")
For j = 1 To dgvFaktorInfo.Rows(gg).Cells("Versions").Value
versionss.Items.Add(vvv.items)
Next
versionss.Items.Add(drr("Version").ToString)
TarikhFAs.Items.Add(drr("TarikhFA").ToString)
MablagheKols.Items.Add(drr("MablagheKolli").ToString)
versionss.Value = versionss.Items(0)
versionss.ReadOnly = False
dgvFaktorInfo.Rows(gg).Cells("Versions") = versionss
　
dgvFaktorInfo.Rows(gg).Cells("FaktorIDs").Value = dgvFaktorInfo.Rows(gg).Cells("FaktorIDs").Value & "/" & drr("FaktorID")
Exit For
ElseIf gg = dgvFaktorInfo.Rows.Count - 1 Then
GoTo here
EndIf
'ElseIf (gg = dgvFaktorInfo.Rows.Count - 1) Then
here:
If t <> 0 Then dgvFaktorInfo.Rows.Add()
If dgvFaktorInfo.Rows.Count < 3 Then
gg = 0
Else
gg = dgvFaktorInfo.Rows.Count - 2
EndIf
dgvFaktorInfo.Rows(gg).Cells("Radifs").Value = dgvFaktorInfo.Rows.Count
dgvFaktorInfo.Rows(gg).Cells("SanadID").Value = drr("SanadID")
dgvFaktorInfo.Rows(gg).Cells("TozihIDs").Value = drr("TozihID")
dgvFaktorInfo.Rows(gg).Cells("FaktorIDs").Value = drr("FaktorID")
versionss.Items.Add(drr("Version").ToString)
TarikhFAs.Items.Add(drr("TarikhFA").ToString)
MablagheKols.Items.Add(drr("MablagheKolli").ToString)
versionss.Value = versionss.Items(0)
versionss.ReadOnly = False
dgvFaktorInfo.Rows(gg).Cells("Versions") = versionss
TarikhFAs.Value = TarikhFAs.Items(0)
EndIf
Next
Next
　
يه نفر محض رضاي خدا جواب بده . ممنون