Question

愚蠢的noob问题：

我尝试在SSRS 2012报告的自定义代码中包含以下VBA功能：

Function GetManufactureDate(ByVal Add As Integer, ByVal Target As Date) As 
Date
Dim Added As Integer = 0
Dim T As Date = Target
Do While Added > Add
T = DateAdd("d", -1, T)
If DatePart("dddd", T) = (2 <= 6) Then Added = Added - 1 End If
Loop
Return T
End Function

我在现有自定义代码的最底部添加了此内容，而不是之前的所有＆＃34;结束功能＆＃34;和其他这样的东西。根据Visual Studio，这段代码是正确的，但是当我尝试保存我的SSRS报告时，我得到＆＃34;语句结束预期＆＃34;。

我用Google搜索，一无所获。仅供参考，代码正在添加我在此处显示的格式。

我是SSRS的新手，而且非常新的VBA，所以任何建议都会受到赞赏。

Answer 1

// If the user submitted a password
if( isset( $_POST['password'] ) ) {
    if ( sha1( $_POST['password'] ) == $password ) {
        $_SESSION['signedIn'] = true;
    } else {
        $isWrongPass = true;
    }
}

// If the user submitted a name
if ( $_POST['username'] == $username ) {
    $_SESSION['signedIn'] = true;
} else {
    $isWrongUser = true;
}

If DatePart("dddd", T) = (2 <= 6) Then Added = Added - 1 End If语句，其中包含＆＃34;然后＆＃34;与＆＃34; If＆＃34;相同的一行部分，使用内联语法，它由语句结束标记（If...Then）分隔，而不是NEWLINE。

所以：

End If

或者，块语法：

If {bool-expression} Then {instruction}

删除If {bool-expression} Then {instructions} End If，解析器并不期待它。或者，将End If放在自己的行上，并将Added = Added - 1放在下面的行上。

将自定义代码添加到SSRS报告中，获取＆＃34;语句结束预期错误＆＃34;

1 个答案: