如何使窗口表只显示最后一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何使窗口表只显示最后一行

共有11394人关注过本帖树形打印复制链接主题：如何使窗口表只显示最后一行

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

如何使窗口表只显示最后一行 发帖心情

Post By：2012/3/27 13:49:00 [只看该作者]

当点击打开表按钮后,打开的窗口表只显示最后一行,代码如何写,谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:保留最后一行.table

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/27 14:30:00 [只看该作者]

Dim i As String = e.Form.Controls("ComboBox1").value    '定义一个组合框,以供在窗口显示表用
If i = "表A" Then   '如果组合框显示为"表A"
Tables("窗口1_Table1").DataSource = DataTables("表A") '主窗口则显示表A
Else If i = "表B" Then
Tables("窗口1_Table1").DataSource = DataTables("表B") '主窗口则显示表A
Else If i = "表C" Then
Tables("窗口1_Table1").DataSource = DataTables ("表C") '主窗口则显示表A
End If
With Tables("窗口1_Table1")
     .Filter = "[_Identify] = " & .Rows(.Rows.Count -1)("_Identify")
End With

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2012/3/27 14:35:00 [只看该作者]

谢谢贺老师

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/3/27 15:17:00 [只看该作者]

Dim i As String = e.Form.Controls("ComboBox1").Value '定义一个组合框,以供在窗口显示表用
DataTables("窗口1_Table1").Fill("Select Top 1 * From {" & i & "} Where 第五列 Is Not Null Order by [第五列] Desc",False)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:保留最后一行.table

这个只能指定列.

[此贴子已经被作者于2012-3-27 15:47:07编辑过]

程兴刚

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

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/27 15:39:00 [只看该作者]

这样就可以：

Dim i As String = e.Form.Controls("ComboBox1").value    '定义一个组合框,以供在窗口显示表用
If i IsNot Nothing Then
    Dim r As Row = Tables(i).Rows(Tables(i).Rows.Count-1)
    Tables("窗口1_Table1").DataSource = DataTables(i)
    Tables("窗口1_Table1").Filter = "[_Identify] = " & r("_Identify")
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目12.table

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2012/3/27 16:14:00 [只看该作者]

谢谢几位老师!!!

下一主题 >> << 上一主题

主题：如何使窗口表只显示最后一行