tabcontrols中的table引用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → tabcontrols中的table引用问题

共有5011人关注过本帖树形打印复制链接主题：tabcontrols中的table引用问题

zhchn888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：543 威望：0 精华：0 注册：2013/2/4 14:26:00

tabcontrols中的table引用问题 发帖心情

Post By：2014/3/13 9:05:00 [显示全部帖子]

哪位老师可以回答下：form1中加一个tabcontrols，tabcontrols中的page1里加一个table1，我可以这么引用table吗：dim t as table =tables(窗口1_table1）

zhchn888

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：543 威望：0 精华：0 注册：2013/2/4 14:26:00

Post By：2014/3/13 9:14:00 [显示全部帖子]

但我测试的结果不行，说不存在这个table，我已设置为副本

zhchn888

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：543 威望：0 精华：0 注册：2013/2/4 14:26:00

Post By：2014/3/13 9:17:00 [显示全部帖子]

Dim t1 As Table = Tables("月报周报统计上报_Table1")
t1.ClearSubtotal
Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报修时间>= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报修时间<= #" & .Value & "#" & " And "
    End If
End With

filter=filter & "[修复时间] Is null" & "And" & "( 数据来源 like '电话*' Or 矩阵编号 Like '*LJ*' ）"

If Filter > "" Then
    Tables("月报周报统计上报_Table1").Filter = Filter
    Dim r1 As Integer = CurrentTable.Rows.Count
    MessageBox.Show("找出合乎要求的记录 " & r1 & "条!" ,"提示:")
End If