主题：[求助]

老师好！我有一段代码在主窗口执行没问题，但是移到其它窗口的按钮，颜色标记的一行代码就不执行了。请指点，什么原因。谢谢！

If User.IsRole("接种医生") Then
    Forms("登记总表").Open()
    MainTable = Tables("登记总表")
    Dim Val As Integer = -10
    If InputValue(Val, "第三针未种名单", "请输入要查询的天数:") Then
        Output.Show(Val)
    End If
    Dim dt As Date = Date.Today.AddDays(6*Val)
    DataTables("登记总表").LoadFilter = "日期 > '" & dt & "'"
    DataTables("登记总表").Load()
    Tables("登记总表").Filter = "[疫苗保存] = '保存本门诊' And [第三次实际接种日期] Is Null And 第三次按程序接种日期 > '" & Date.Today.AddDays(Val) & "' And 第三次按程序接种日期 <= '" & Date.Today & "'"
Else
    MessageBox.Show("您不是门诊医生,无操作权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If