Variablen von einer Funktion zurückgeben?

Question

i an einigen alten Code suchen und es gibt die folgende Codezeile:

strResult = strResult + "<table>" & vbLf 
     output = PrintTableHead("Field Office Code","1") 
     strResult = strResult + PrintTableHead("Field Office Code","1") 
     strResult = strResult + "<tr>" & vbLf 


Function PrintTableHead(TheTitle , TheColSpan) 

    strResult = "<tr><th colspan=" 
    strResult = strResult + TheColSpan 
    strResult = strResult + " BGCOLOR=""#004D95"" align=center>" & vbLf 
    strResult = strResult + "<font face=""Time New Roman"" color=""#ffffff"" SIZE=3>" & vbLf 
    strResult = strResult + TheTitle 
    strResult = strResult + "</font></th></tr>" & vbLf 

End Function 

wenn ich versuche, strResult zu debuggen. Es fügt den Inhalt der pIrntTableHead-Funktion nicht an. Warum funktioniert das nicht? Wie kann ich das neu schreiben, um richtig anzufügen?

so nach strResult = strResult + "<tr>" & vbLf der Wert strResult ist nach wie vor nur:

"table><tr>"

Answer 1

Die Funktion nie seinen Wert zurückgibt. Sie benötigen die folgende Zeile kurz vor der End Function.

PrintTableHead = strResult 

Beachten Sie, dass Sie sicher, dass strResult machen sollte, ist, sowohl lokal als auch in der Funktion deklarieren, zu vermeiden, dass die Variable Überschreiben Sie in der anrufenden Code verwenden. Die ganze Funktion würde so aussehen:

Function PrintTableHead(TheTitle , TheColSpan) 

    Dim strResult 
    strResult = "<tr><th colspan=" 
    strResult = strResult + TheColSpan 
    strResult = strResult + " BGCOLOR=""#004D95"" align=center>" & vbLf 
    strResult = strResult + "<font face=""Time New Roman"" color=""#ffffff"" SIZE=3>" & vbLf 
    strResult = strResult + TheTitle 
    strResult = strResult + "</font></th></tr>" & vbLf 
    PrintTableHead = strResult 

End Function