نسرین2000
سه شنبه 08 بهمن 1392, 09:31 صبح
باز هم سلام
من در یکی از فیلدهای تیبلم در دیتابیس شماره اتاقهای رزرو شده را ثبت می کنم به این صورت 102-105-108
توسط تابع زیر آیتم های موجود در لیست باکس را به این صورت ثبت می کنم :
Private Function DispSuit(lstbox As ListBox) As String
Dim i As Integer
DispSuit = ""
For i = 0 To lstbox.Items.Count - 1
DispSuit += lstbox.Items(i) & "-"
Next
DispSuit = Mid(DispSuit, 1, DispSuit.Length - 1)
End Function
حالا با کد cزیرهم می خوام فراخوانی رو انجام بدم :
Public Function DispSuitInList(ByVal strDest As String) As ListBox
Dim i As Integer = 0
DispSuitInList = New ListBox
While strDest.Length > 4
i = InStr(strDest, "-")
DispSuitInList.Items.Add(Mid(strDest, 1, i - 1))
strDest = Mid(strDest, i + 1)
End While
DispSuitInList.Items.Add(strDest)
End Function
ولی عمل نمی کنه و لیست باکسم خالی می مونه ؟؟؟؟؟؟؟؟؟؟؟؟؟
من در یکی از فیلدهای تیبلم در دیتابیس شماره اتاقهای رزرو شده را ثبت می کنم به این صورت 102-105-108
توسط تابع زیر آیتم های موجود در لیست باکس را به این صورت ثبت می کنم :
Private Function DispSuit(lstbox As ListBox) As String
Dim i As Integer
DispSuit = ""
For i = 0 To lstbox.Items.Count - 1
DispSuit += lstbox.Items(i) & "-"
Next
DispSuit = Mid(DispSuit, 1, DispSuit.Length - 1)
End Function
حالا با کد cزیرهم می خوام فراخوانی رو انجام بدم :
Public Function DispSuitInList(ByVal strDest As String) As ListBox
Dim i As Integer = 0
DispSuitInList = New ListBox
While strDest.Length > 4
i = InStr(strDest, "-")
DispSuitInList.Items.Add(Mid(strDest, 1, i - 1))
strDest = Mid(strDest, i + 1)
End While
DispSuitInList.Items.Add(strDest)
End Function
ولی عمل نمی کنه و لیست باکسم خالی می مونه ؟؟؟؟؟؟؟؟؟؟؟؟؟