以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  疑惑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39501)

--  作者:blackzhu
--  发布时间:2013/8/26 8:33:00
--  疑惑
  这两天在进行系统额编写,发现了一个问题,


同样的代码 有些在目录树不执行,在按钮可以执行,有些在命令窗口不执行,在按钮且执行. 比如这样的加载代码.


Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String

Filter = "日期 >= \'" & dt1 & "\' And 日期 <= \'" & dt2 & "\'"

Tables("生产完成情况日报_Table1").Fill("Select * from{十监区管理} Where  部门=\'" & _UserGroup & "\' And " & Filter ,"服务器",False)    

  在命令窗口和按钮都可以执行,但是在窗口切怎么也不执行.  我用load 也是一样的情况下.

直接表名写入到是可以的



--  作者:Bin
--  发布时间:2013/8/26 8:38:00
--  
直接表名写入是什么意思?  这么神奇建议上个例子瞧瞧.
--  作者:blackzhu
--  发布时间:2013/8/26 8:47:00
--  
这个代码有无问题?


我的直接写入表名的意思是:  不是写窗口表的意思



--  作者:逛逛
--  发布时间:2013/8/26 8:47:00
--  
用窗口的Activated事件试试
--  作者:Bin
--  发布时间:2013/8/26 8:49:00
--  
代码看起来是没有问题的.
--  作者:blackzhu
--  发布时间:2013/8/26 8:54:00
--  
妈的 我没有本部门的数据,但是就是加载了数据.
--  作者:blackzhu
--  发布时间:2013/8/26 8:54:00
--  
以下是引用逛逛在2013-8-26 8:47:00的发言:
用窗口的Activated事件试试


  窗口有这个事件?


--  作者:Bin
--  发布时间:2013/8/26 8:55:00
--  
不会吧,设置了条件没道理会加载其他的啊.你这SQL语句条件也没问题啊.
--  作者:blackzhu
--  发布时间:2013/8/26 9:07:00
--  
就是呀  我晕死了  几个小时 一直在搞这个
--  作者:逛逛
--  发布时间:2013/8/26 9:15:00
--  
以下是引用blackzhu在2013-8-26 8:54:00的发言:

  窗口有这个事件?

第三方事件

全局:Public  Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs)
\'定义一个窗体被激活的事件
    If forms.ActiveForm IsNot Nothing Then
        Functions.Execute("Form_Activated")  ’这里自己写个函数处理
    End If
End Sub

 

 

窗口AfterLoad

 

AddHandler e.form.baseform.Activated, AddressOf Form_Activated

 

 

窗口激活的函数,千万别写对话框,会死循环的。