함수에서 변수를 다시 전달 하시겠습니까?

Question

나는 고대 코드를 찾고 코드의 다음 줄이 있습니다 :

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 

내가 strResult을 디버깅하려고합니다. pIrntTableHead 함수의 내용을 추가하지 않습니다. 왜이게 효과가 없습니까? 어떻게 올바르게 추가 할 수 있습니까?

그렇게 strResult = strResult + "<tr>" & vbLf 후 strResult의 값은 여전히 ​​:

이

"table><tr>"

Answer 1

함수는 값을 반환하지 않습니다. End Function 직전에 다음 줄이 필요합니다. 확실 strResult을해야

PrintTableHead = strResult 

참고하면 호출 코드에서 사용하는 변수를 덮어 쓰지 않도록 할뿐만 아니라, 함수 내에서 로컬로 선언합니다. 전체 기능은 다음과 같습니다.

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