- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问大神，窗口中新建的临时表如何支持move (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26533)
-- 发布时间：2012/12/7 8:52:00
-- 请问大神，窗口中新建的临时表如何支持move
窗口中用DataTableBuilder建立的临时表如何设置才能使用move移动行呢
-- 发布时间：2012/12/7 9:03:00
--
加一列 _Sortkey
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("_Sortkey", Gettype(Double))
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
MainTable= Tables("统计")
-- 发布时间：2012/12/7 9:04:00
--
没啥反应呢
[此贴子已经被作者于2012-12-7 9:07:27编辑过]
-- 发布时间：2012/12/7 9:14:00
--
程序界面可以，窗口中好像不行，没反应
上移行用的代码
With e.form.controls("table1").table
.Current.Move(.Position - 1)
End With
-- 发布时间：2012/12/7 9:19:00
--
我测试可以，你是怎么弄的，做个小例。
-- 发布时间：2012/12/7 9:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目114.table |
-- 发布时间：2012/12/7 10:41:00
--
测试了很久，木有办法，动态绑定表的时候，窗口表就变成副本了，太坏了……然后，就不能移动行了，移动的效果在另一个表……可能是bug
-- 发布时间：2012/12/7 10:52:00
--
只有用实体表这一条路了呗
-- 发布时间：2012/12/7 11:13:00
--
AfterLoad事件的最后面，加上一行代码，就可以移动行了：
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("_Sortkey", Gettype(Double))
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.AddDef("测试", Gettype(Double),"[_SortKey]")
e.Form.Controls("Table1").Table.datasource = dtb.BuildDataSource
e.Form.Controls("Table1").Table.allowedit = True
e.Form.Controls("Table1").Table.Sort = ""
-- 发布时间：2012/12/7 11:16:00
--
还是狐爸老辣