- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何使窗口表只显示最后一行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17864)
-- 发布时间：2012/3/27 13:49:00
-- 如何使窗口表只显示最后一行
当点击打开表按钮后,打开的窗口表只显示最后一行,代码如何写,谢谢!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:保留最后一行.table |
-- 发布时间：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
-- 发布时间：2012/3/27 14:35:00
--
谢谢贺老师
-- 发布时间：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编辑过]
-- 发布时间：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 |
-- 发布时间：2012/3/27 16:14:00
--
谢谢几位老师!!!