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

1、获取不到说明没有table啊；

 

2、你还要获取tabcontrol，然后获取它里面的所有控件啊。

??为什么还要先获取页面合集，？页面合集和里面的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不是有限执行前半段代码吗

 

 

我重新上传了例子，

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 & "】" & "  总行数:"
        End If
    Next
    If str2 = "" Then
        str2 = "当前窗口没有表"
    End If
    lb2.text = Str2
End 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出错，说是窗口表没这个属性

Str2 = Str2 & tw.Table.Rows.Count & "  当前行:" & (tw.Table.Position + 1)

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

 

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

先查找TabControl，然后循环选中页里面的所有控件，看有没有table

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

 

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