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


  共有9773人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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

 回到顶部