maryam_272
دوشنبه 17 بهمن 1390, 12:29 عصر
سلام
من در یک دیتالیست می خواهم تابعی رو صدا بزنم که این تابع بصورت سراسری در ماژول تعریف شده اما این تابع رو نمی شناسه ولی اگر در کد بیهایند این تابع رو بزارم اون رو می شناسه آیا راهی هست که بشه یک تابع که بصورت سراسری تعریف شده رو صدا بزنم
در درون دیتالیست به این شکل تابع رو صدا می زنم
<span style="font-size: 8pt;"><%# EnNum2Fa(Eval("CodeKhabar"))%></span>
و ماژول هم به این شکل تعریف کرده ام
Public Module ShareFunction
Public Function EnNum2Fa(ByVal EnNum As String) As String
Dim nLen As Integer
Dim sFrStr As String
nLen = EnNum.Length
If nLen = 0 OrElse IsNothing(nLen) Then
Return EnNum
End If
sFrStr = ""
For i As Integer = 0 To nLen - 1
Dim ch As Char = CChar(EnNum(i))
If AscW(ch) <= 57 And AscW(ch) >= 48 Then
ch = (ChrW(AscW(ch) + 1728))
End If
sFrStr += ch
Next
Return sFrStr
End Function
End Module
من در یک دیتالیست می خواهم تابعی رو صدا بزنم که این تابع بصورت سراسری در ماژول تعریف شده اما این تابع رو نمی شناسه ولی اگر در کد بیهایند این تابع رو بزارم اون رو می شناسه آیا راهی هست که بشه یک تابع که بصورت سراسری تعریف شده رو صدا بزنم
در درون دیتالیست به این شکل تابع رو صدا می زنم
<span style="font-size: 8pt;"><%# EnNum2Fa(Eval("CodeKhabar"))%></span>
و ماژول هم به این شکل تعریف کرده ام
Public Module ShareFunction
Public Function EnNum2Fa(ByVal EnNum As String) As String
Dim nLen As Integer
Dim sFrStr As String
nLen = EnNum.Length
If nLen = 0 OrElse IsNothing(nLen) Then
Return EnNum
End If
sFrStr = ""
For i As Integer = 0 To nLen - 1
Dim ch As Char = CChar(EnNum(i))
If AscW(ch) <= 57 And AscW(ch) >= 48 Then
ch = (ChrW(AscW(ch) + 1728))
End If
sFrStr += ch
Next
Return sFrStr
End Function
End Module