Crystal Reportsの式をVBコードに変換する

Question

Crystal Reportsと.NETテクノロジを初めて使用しました。私は最近彼らの作業を開始しました。クリスタルレポートの式を同等のVBコードに変換できるかどうかを知りたいので、SSRSレポートで使用できます。

また、以下のクリスタル報告の表現は、vbコードのようなものです（私が間違っていると誰かが私を修正します）。

Crystalレポート式：

local StringVar x :=""; 

if not isnull({Availability.Address}) and trim {Availability.Address}) <> "" 
and {Availability.Address} <> {Availability.Building} 
then x := x + {Availability.Address} + chr(10); 

if not isnull({Availability.Park}) and trim({Availability.Park}) <> "" 
then x := x + {Availability.Park} + chr(10); 

if not isnull({Availability.City}) and trim({Availability.City}) 
<> "" then if not isnull({Availability.State}) 
then x := x + {Availability.City} + ", " 
else x := x + {Availability.City} + " "; 

if not isnull({Availability.State}) and trim({Availability.State})  
<> "" then x := x + {Availability.State} + " "; 

if not isnull({Availability.Zip}) and trim({Availability.Zip}) 
<> "" then  x := x + {Availability.Zip} + " "; 
x; 

VBコード：

Public Function Test(ByVal profit As String) As String 
{ 
    //crystal report expressions as vb code? 
} 

は、今私はVBのコードには、この結晶の式を変換することができますか？

注：Availability in the formula is the stored procedure name and followed by a field name。

Answer 1

Function formula(ByVal address_1 As String, _ 
       ByVal building_name_formatted_rpt As String, _ 
       ByVal park_name As String, _ 
       ByVal city As String, _ 
       ByVal state As String, _ 
       ByVal zip As String) As String 

    Dim x As String = "" 

    If Not IsDBNull(address_1) And Trim(address_1) <> "" And address_1 <> building_name_formatted_rpt Then 
     x = x & address_1 & Chr(10) 
    End If 


    If Not IsDBNull(park_name) And Trim(park_name) <> "" Then 
     x = x & park_name & Chr(10) 
    End If 

    If Not IsDBNull(city) And Trim(city) <> "" Then 
     If Not IsDBNull(state) Then 
      x = x & city & ", " 
     Else 
      x = x & city & " " 
     End If 
    End If 


    If Not IsDBNull(state) And Trim(state) <> "" Then 
     x = x & state & " " 
    End If 


    If Not IsDBNull(zip) And Trim(zip) <> "" Then 
     x = x & zip & " " 
    End If 

    Return x 
End Function