- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于设置当前表的问题【已解决】 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30094)
-- 发布时间：2013/3/20 23:03:00
-- 关于设置当前表的问题【已解决】
用TabControl做了多个page，每个page里有不同的表！在窗口上做了多个按钮用于移动指针！
with currenttable
.position=.position+1
end with
怎样点一个page 就能将当前页面的表 设置 成 CURRENTTABLE ，从而正确的移动指针！
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2013-3-21 20:29:04编辑过]
-- 发布时间：2013/3/20 23:31:00
--
SelectedIndexChanged事件：
Select Case e.Sender.SelectedIndex
Case 0
MainTable = Tables("部门表")
Case 1
MainTable = Tables("行政区域")
Case 2
MainTable= Tables("数据字典")
End Select
移行按钮Click事件：
CurrentTable.Position + = 1
-- 发布时间：2013/3/21 3:00:00
--
顶
-- 发布时间：2013/3/21 9:10:00
--
CurrentTable是无法设置的，只有MainTable才能设置。
-- 发布时间：2013/3/21 15:14:00
--
狐爸！你告诉我怎么解决这个问题！主表我设置了啊！
-- 发布时间：2013/3/21 15:17:00
--
1、定义一个public变量：
Public dt As Table
2、SelectedIndexChanged事件：
Select Case e.Sender.SelectedIndex
Case 0
MainTable = Tables("部门表")
Case 1
MainTable = Tables("行政区域")
Case 2
MainTable= Tables("数据字典")
End Select
3、之后用dt就行了，不要用CurrentTable了。
-- 发布时间：2013/3/21 15:33:00
--
在 SelectedIndexChanged
Select Case e.Sender.SelectedIndex
Case 0
MainTable=Tables("会员表")
Case 1
Tables("会员查看窗口_table1").fill("select * from {会员充值表} where [会员卡号]=\'" & e.Form.Controls("TextBox2").value & "\'",False)
Case 2
Tables("会员查看窗口_table2").fill("select * from {会员消费表} where [会员卡号]=\'" & e.Form.Controls("TextBox2").value & "\'",False)
End Select
移动指针：
With CurrentTable
.Position = .Position - 1
End With
到其他 1 或 2 页面后 回来还是不能移动啊
-- 发布时间：2013/3/21 16:19:00
--
如果在第一页放上 table空间 代码是正常的！放上我一楼这样就不行啊！为什么啊！！
-- 发布时间：2013/3/21 16:20:00
--
With CurrentTable
.Position = .Position - 1
End With
改为：
If dt isnot Nothing then
dt.Position = dt.Position - 1
end if
-- 发布时间：2013/3/21 16:37:00
--
你老还是帮忙看看吧！我按你的改了还是不行，又改回试了老多办法！多不好使
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会员管理系统.foxdb |