Beyle visual basicde anket yapmayı bilen varmı_ 3 haftam kaldı

Form1:
If rdb_glt.Checked = True Then
Static glt
glt += 1
DataSet11.anket.Item(0).galatasaray = glt
OleDbDataAdapter1.Update(DataSet11)
' bu kısım galatasaray seçilmişse veritabanındaki 0 ıncı satırdaki galatasaray alanına sabit glt değişkenini ekle ve güncelle.Sabit değişken butona her tıklandığında değişken içindeki değeri korur tutar
End If
If rdb_fnr.Checked = True Then
Static fnr
fnr += 1
DataSet11.anket.Item(0).fenerbahce = fnr
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_bsk.Checked = True Then
Static bsk
bsk += 1
DataSet11.anket.Item(0).besiktas = bsk
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_trb.Checked = True Then
Static trb
trb += 1
DataSet11.anket.Item(0).trabzonspor = trb
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_dgr.Checked = True Then
Static dgr
dgr += 1
DataSet11.anket.Item(0).diger = dgr
OleDbDataAdapter1.Update(DataSet11)
End If
Form2.Show()

Form2:
Label6.Text = Form1.DataSet11.anket.Item(0).galatasaray
Label7.Text = Form1.DataSet11.anket.Item(0).fenerbahce
Label8.Text = Form1.DataSet11.anket.Item(0).besiktas
Label9.Text = Form1.DataSet11.anket.Item(0).trabzonspor
Label10.Text = Form1.DataSet11.anket.Item(0).diger
' değerlerin ekrana çekilme işlemi

Konu Kilit //

Kardeşim çok saol ama ben bu kodaları denedim hata verdi bana facebooktan ulaşırmısın

Cruiser Vaqabond' Alıntı:

yardım merkezine taşındı.

Genişletmek için tıkla ...

kardeş lütfen yardım et