bastakboys
پنج شنبه 03 بهمن 1387, 21:01 عصر
دوستان بجای کد زیر کدی کوتاه تر میشه نوشت؟
If drdg.HasRows = TrueThen
drdg.Read()
'---------------------
TbIdf.Text = drdg("idF")
'-------¬©ل ©ںی ¦ںéی ي§ë----
If drdg("ax").ToString = ""Then
PbF.Image = CigNetArchive.My.Resources.Resources.axn
Else
PbF.ImageLocation = drdg("ax")
EndIf
'-----------------------------
If drdg("ename").ToString = ""Then
Else
TbEname.Text = drdg("ename")
EndIf
'-----------------------------
If drdg("fname").ToString = ""Then
Else
TbFname.Text = drdg("fname")
EndIf
'-----------------------------
If drdg("st").ToString = ""Then
Else
TbSt.Text = drdg("st")
EndIf
'-----------------------------
If drdg("janr").ToString = ""Then
Else
TbJanr.Text = drdg("janr")
EndIf
'-----------------------------
If drdg("af").ToString = ""Then
BtFilm.Enabled = False
Else
fil = drdg("af")
BtFilm.Enabled = True
EndIf
'-----------------------------
EndIf
If drdg.HasRows = TrueThen
drdg.Read()
'---------------------
TbIdf.Text = drdg("idF")
'-------¬©ل ©ںی ¦ںéی ي§ë----
If drdg("ax").ToString = ""Then
PbF.Image = CigNetArchive.My.Resources.Resources.axn
Else
PbF.ImageLocation = drdg("ax")
EndIf
'-----------------------------
If drdg("ename").ToString = ""Then
Else
TbEname.Text = drdg("ename")
EndIf
'-----------------------------
If drdg("fname").ToString = ""Then
Else
TbFname.Text = drdg("fname")
EndIf
'-----------------------------
If drdg("st").ToString = ""Then
Else
TbSt.Text = drdg("st")
EndIf
'-----------------------------
If drdg("janr").ToString = ""Then
Else
TbJanr.Text = drdg("janr")
EndIf
'-----------------------------
If drdg("af").ToString = ""Then
BtFilm.Enabled = False
Else
fil = drdg("af")
BtFilm.Enabled = True
EndIf
'-----------------------------
EndIf