以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71049)

--  作者:zcgmxf
--  发布时间:2015/7/3 17:49:00
--  [求助]

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

 

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


--  作者:大红袍
--  发布时间:2015/7/3 18:01:00
--  

 改一下表名

 

Tables("窗口1_Table1").Filter = "xxx"


--  作者:zcgmxf
--  发布时间:2015/7/3 19:10:00
--  
该表名是可以,我想知道的是为什么前面的代码可以执行,后面的代码就不执行了,在主窗口又没有问题。
--  作者:sloyy
--  发布时间:2015/7/3 21:06:00
--  
在窗口中表名变了,就这么简单 
--  作者:狐狸爸爸
--  发布时间:2015/7/4 8:53:00
--  
参考:
http://www.foxtable.com/help/topics/1788.htm