Foxtable(狐表) → 用户栏目 → 专家坐堂 → 页面集合上复制控件


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

主题：页面集合上复制控件
帅哥哟，离线，有人找我吗？
kmzb56
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/7 14:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：帐户管理.png
图片点击可在新窗口打开查看

 请问我要在这个帐户之间转帐，右手那个，怎么实现 出帐的帐户增加一个支出条目，收入的帐户增加一个收入条目，要考虑以后帐户要有扩展性，也就是增加了一个集合页也不影响功能。就是前面版本说的空间命名规则怎样更好？
 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/7 15:18:00 [只看该作者]

以下是引用有点甜在2018/11/29 10:29:00的发言：

 

dr("付款方式")=tab.SelectedPage.text

 



请帮我看一下，谢谢！急
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 16:03:00 [只看该作者]

 

代码不变啊。你增加集合页以后，页面名称改成表格名称即可啊。

 
 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/7 16:19:00 [只看该作者]

我是说上面贴的图那个，帐户间转帐操作

 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/7 16:19:00 [只看该作者]

帮我看一下上面那个帐户间转帐操作怎么弄？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 16:48:00 [只看该作者]

以下是引用kmzb56在2018/12/7 16:19:00的发言：
帮我看一下上面那个帐户间转帐操作怎么弄？

 

Dim t1 As Table = Tables(e.form.controls("combobox1").text)

Dim t2 As Table = Tables(e.form.controls("combobox2").text)

 

你获取得到两个表以后，对表格增加记录，赋值，即可啊。
 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/7 23:35:00 [只看该作者]

Dim t1 As Table = Tables(e.form.controls("combobox1").text)
Dim t2 As Table = Tables(e.form.controls("combobox2").text)
t1.AddNew()
t2.AddNew()
Dim r1  As Row=t1.current
Dim r2  As Row=t2.current
Dim t3 As  String=e.form.controls("TextBox6").value
r1("支出")=t3
r1("说明")="帐户间转帐" & "从" & (e.form.controls("combobox1").text) & "转到"  &  e.form.controls("combobox2").text  
r2("收入")=t3
r2("说明")="帐户间转帐" & "从" & (e.form.controls("combobox1").text) & "转到"  &  e.form.controls("combobox2").text  


功能实现了，谢谢！ 现在我是想让 combobox1和combobox2 下拉列表的值取值于 页面上的页名称，或者副表名称，这种在在哪里写入代码，怎么取集合值？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/8 8:45:00 [只看该作者]

窗口afterload事件

dim str as string = "现金日记账|农行明细账|建行明细账"
e.form.controls("combobox2").ComboList = str

 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/8 21:07:00 [只看该作者]

以下是引用有点蓝在2018/12/8 8:45:00的发言：
窗口afterload事件

dim str as string = "现金日记账|农行明细账|建行明细账"
e.form.controls("combobox2").ComboList = str
我是想dim str as string =  这个地方显示的是各页面的集合，各个页面的名字，这样哪怕以后增加页面也会自动增加下拉列表项目。
 回到顶部
帅哥哟，离线，有人找我吗？
kmzb56
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00 		  发帖心情 Post By：2018/12/8 21:11:00 [只看该作者]

这个方法是手动的，我是想以后增加页面后也能自动增加项目。

 回到顶部
总数 31 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询