mehrnoosh_al62
سه شنبه 29 مرداد 1387, 15:51 عصر
سلام دوستان
ممکنه بگید ایراد کد من کجاست؟
میخوام از بانک بخونم و در لود برنامه کنترل هایی که در بانک هست به صورت Invisible در بیان. جدول بانک به صورت تصویریه که ضمیمه کردم. نام قبل از "، " نام فرممه و نام بعدش نام کنترل موجود در اون فرمه:
کدی که نوشتم ظاهرا ارور نمیده ولی بعد لود شدن کنترل های که باید به صورت invisible در بیان همچنان visible هستند و در واقع هیچ تغییری نمیکنند. برنامه رو که trace کردم حتی وارد شرط if هم میشه و اروری نداره ولی در ظاهر هیچ تغییری در برنامه ایجاد نمیشه...:ناراحت:
For i As Integer = 0 To tbl2.Rows.Count - 1
Dim index As Integer = tbl2.Rows(i)(2).ToString().IndexOf(",")
Dim frmstr As String = tbl2.Rows(i)(2).ToString().Substring(0, index)
Dim ctrlstr As String = tbl2.Rows(i)(2).ToString().Substring(index + 1)
For Each frm As Form In clevel.ReturnForms()
If (frm.Name = frmstr) Then
For Each ctrl As Control In frm.Controls
If (ctrl.Name = ctrlstr) Then
ctrl.Enabled = False
End If
Next
End If
Next
Next
ممکنه بگید ایراد کد من کجاست؟
میخوام از بانک بخونم و در لود برنامه کنترل هایی که در بانک هست به صورت Invisible در بیان. جدول بانک به صورت تصویریه که ضمیمه کردم. نام قبل از "، " نام فرممه و نام بعدش نام کنترل موجود در اون فرمه:
کدی که نوشتم ظاهرا ارور نمیده ولی بعد لود شدن کنترل های که باید به صورت invisible در بیان همچنان visible هستند و در واقع هیچ تغییری نمیکنند. برنامه رو که trace کردم حتی وارد شرط if هم میشه و اروری نداره ولی در ظاهر هیچ تغییری در برنامه ایجاد نمیشه...:ناراحت:
For i As Integer = 0 To tbl2.Rows.Count - 1
Dim index As Integer = tbl2.Rows(i)(2).ToString().IndexOf(",")
Dim frmstr As String = tbl2.Rows(i)(2).ToString().Substring(0, index)
Dim ctrlstr As String = tbl2.Rows(i)(2).ToString().Substring(index + 1)
For Each frm As Form In clevel.ReturnForms()
If (frm.Name = frmstr) Then
For Each ctrl As Control In frm.Controls
If (ctrl.Name = ctrlstr) Then
ctrl.Enabled = False
End If
Next
End If
Next
Next