hamed-p
شنبه 17 شهریور 1386, 23:11 عصر
من میخواهم که بهجای اینکه از دستور Case برای اجرای منوها استفاده کنم، از پایگاهداده به شیوهی زیر بهره ببرم.
لطفاً کد زیر را اصلاح کنید:
Private Sub GozareshaMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemRpDaryafti.Click, _
ItemRpAmarKol.Click, ItemRpBedehBestan.Click, ItemRpKarnameKol.Click, ItemRpMainList.Click, _
ItemRpNomreList.Click, ItemRpOftadegan.Click, ItemRpShenasCard.Click, ItemRpStuAmarDaftar.Click, _
ItemRpStuSath.Click, ItemRpTel.Click
Dim ChildForm As New System.Windows.Forms.Form
ChildForm.Text = ""
Dim TextItem As String = sender.ToString
Dim i As Integer
For i = 0 To bsInfoReport.Count - 1
If TextItem = bsInfoReport.Item(i)(1).ToString Then
ChildForm = bsInfoReport.Item(i)(2)
Exit For
End If
Next
ChildForm.MdiParent = Me
ChildForm.Show()
End Sub
اینهم جدولی Binding Sourse (BS به آن پیوند دارد. Itemها هم گزینههای نوار منو هستند.
http://i6.tinypic.com/6c7t1mu.jpg
همانطور که مشاهده کردید، در حال حاضر تنها مشکل اصلی این است که نمیتوان یک رشته را به Form نسبت داد.
پیشتر از Object و Ctype هم بهره برده ام که پاسخی نگرفته ام.
لطفاً کد زیر را اصلاح کنید:
Private Sub GozareshaMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemRpDaryafti.Click, _
ItemRpAmarKol.Click, ItemRpBedehBestan.Click, ItemRpKarnameKol.Click, ItemRpMainList.Click, _
ItemRpNomreList.Click, ItemRpOftadegan.Click, ItemRpShenasCard.Click, ItemRpStuAmarDaftar.Click, _
ItemRpStuSath.Click, ItemRpTel.Click
Dim ChildForm As New System.Windows.Forms.Form
ChildForm.Text = ""
Dim TextItem As String = sender.ToString
Dim i As Integer
For i = 0 To bsInfoReport.Count - 1
If TextItem = bsInfoReport.Item(i)(1).ToString Then
ChildForm = bsInfoReport.Item(i)(2)
Exit For
End If
Next
ChildForm.MdiParent = Me
ChildForm.Show()
End Sub
اینهم جدولی Binding Sourse (BS به آن پیوند دارد. Itemها هم گزینههای نوار منو هستند.
http://i6.tinypic.com/6c7t1mu.jpg
همانطور که مشاهده کردید، در حال حاضر تنها مشکل اصلی این است که نمیتوان یک رشته را به Form نسبت داد.
پیشتر از Object و Ctype هم بهره برده ام که پاسخی نگرفته ام.