主题：求功能实现，主窗口中当前控件不包含表控件的时候

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关于测试.foxdb

如图
此主题相关图片如下：tt.png

如图，最底下那个提示是要实现的功能，代码在项目的systemidle里面，要求是，因为这是表里的主窗口所以底下提示默认的是当前表，我想实现是，比如主界面这个窗口里面没有表，下面的那个就提示当前窗口没有表，部门因为点开之后就有个窗口表在里面，所以就直接提示是哪个表，麻烦的是公司，因为里面有个页面合集控件，默认打开第一页，第一页里面没有表，用代码切换到第二页的时候，表在第二页上，当打开默认第一页的时候因为没有表也是提示当前窗口没有表，点开第二页的时候提示是哪个表。不知道我说的明不明白具体看下项目，谢谢啦。

主界面和那个部门是打开就有和打开就没有可以判断，但是公司那个里面有个页面合集，是有表控件的，但是默认第一样是没有表控件的，这个怎么弄，而且我这个代码是写在systemidle事件中的不能用e.form，难道将代码写在每个窗口的afterload事件中去？

那样的话相当麻烦了，每个窗口都要写代码判断啊？或者到了页面合集的时候每个页面切换都要判断啊？如果这样的话那项目命令里面的systemidle就不用写代码了，没有用systemidle代码替代每个窗口都判断的方法吗？

那样的意思也是有几个窗口就要在systemidle里面全部都列进去吗？没有其他方法吗

If Forms("底部共有").Opened Then
Dim lb2 As WinForm.Label = Forms("底部共有").Controls("label2")
  For  Each c  As WinForm.Control  In Forms("部门").Controls
    If Typeof c Is winform.Table Then
         Dim tw  As WinForm.Table = Forms("部门").Controls("table1")  'c '使用特定类型的变量引用控件      
         Dim Str2 As String = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
         '''Str2 = Str2 & t.Rows.Count & "  当前行:" & (t.Position + 1)
    End If
    '''If Typeof c Is WinForm.Table = False  Then  '判断控件是否是文本框
            '''lb2.text = "当前窗口没有表"          
    '''End  If
  Next
End If

??为什么还要先获取页面合集，？页面合集和里面的table不都是窗口中的控件吗？？难道窗口中的控件还分了级次？而且我这个示例项目里面没有页面合集。。。。。

 

此主题相关图片如下：zz.png

 

 

 

If Forms("底部共有").Opened Then Dim lb2 As WinForm.Label = Forms("底部共有").Controls("label2")   For  Each c  As WinForm.Control  In Forms("部门").Controls     If Typeof c Is winform.Table Then          Dim tw  As WinForm.Table = Forms("部门").Controls("table1")  'c '使用特定类型的变量引用控件                Dim Str2 As String = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"          lb2.text = str2     End If   Next End If 这样写都不执行       好像可以执行了，就是systemidle那个代码怎么写通用的不会写，这样在每个窗口的afterload里面写太麻烦了。帮忙写一下吧。

 

而且奇怪的是

 

 

代码加上else之后

 

 

If Forms("底部共有").Opened Then
Dim lb2 As WinForm.Label = Forms("底部共有").Controls("label2")
  For  Each c  As WinForm.Control  In Forms("部门").Controls
    If Typeof c Is winform.Table Then
         Dim tw  As WinForm.Table = Forms("部门").Controls("部门")  'c '使用特定类型的变量引用控件
         Dim Str2 As String = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
         '''Str2 = Str2 & t.Rows.Count & "  当前行:" & (t.Position + 1)
         lb2.text = str2
    Else
       If Typeof c Is WinForm.Table = False  Then  '判断控件是否是文本框
            lb2.text = "当前窗口没有表"

       end if
    End  If
  Next
End If

 

 

确执行else，不执行前面的if了，不加else是对的，加了else反而执行else了。真是奇怪了,没有else的时候执行的对，有了else竟然执行else后面的代码了，if不是有限执行前半段代码吗

 

 

我重新上传了例子，

            Dim tw  As WinForm.Table = c
            str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
            'Str2 = Str2 & tw.Rows.Count & "  当前行:" & (tw.Position + 1)

 

 

你上面写代码中，怎么把'Str2 = Str2 & tw.Rows.Count & "  当前行:" & (tw.Position + 1)这句加上，因为tw.rows.count出错，说是窗口表没这个属性

如图，怎么在代码上改，现在的代码是

 

If Forms("底部共有").Opened Then
    ''''''With  CurrentTable
    Dim lb2 As WinForm.Label = Forms("底部共有").Controls("Label2")
    Dim Str2 As String = ""
    For  Each c  As WinForm.Control  In Forms(MainTable.name).Controls
        If Typeof c Is winform.Table Then
            Dim tw  As WinForm.Table = c
            str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
            Str2 = Str2 & tw.Table.Rows.Count & "  当前行:" & (tw.Table.Position + 1)            
        End If
    Next
    If str2 = "" Then
        str2 = "当前窗口没有表"
    End If
    lb2.text = Str2
End If

此主题相关图片如下：yy.png

For  Each c  As WinForm.Control  In Forms(MainTable.name).Controls

 

这句代码能改吗，这样写的话，窗口名字必须与表名一样才行，要不然就报错，但是实际上，这个窗口名字未必与表名一样，但是，这个窗口确是主窗口，主窗口只能有一个，根据这个怎么改这句代码呢，改成窗口的名字是打开的表的主窗口的名字而不一定是跟表名一样？