Foxtable(狐表)用户栏目专家坐堂 → 窗口中table,复选框的问题


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

主题:窗口中table,复选框的问题

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


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
窗口中table,复选框的问题  发帖心情 Post By:2012/3/26 16:51:00 [只看该作者]

窗口中的table中,有显示行号的属性,有显示复选框的属性。

如果我即想把行号显示出来,也让他有复选框,应该如何操作?

请指点一下!

[此贴子已经被作者于2012-3-26 16:57:17编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/26 17:17:00 [只看该作者]

没有办法,另外增加一个逻辑列吧。

 回到顶部
帅哥哟,离线,有人找我吗?
lcl0117
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
  发帖心情 Post By:2012/3/26 17:33:00 [只看该作者]

代码如下:

DataTables("用户管理_table1").DataCols.Add("编号",Gettype(Integer)," '" & i & "' + 1 ")

增加了逻辑列,怎么实现编号顺序排列呢


 回到顶部
帅哥哟,离线,有人找我吗?
布莱克朱
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2012/3/26 20:39:00 [只看该作者]

如果值纯粹像这样做,没有办法,但是如果想得到行号,要处理数据,代码如下:

 

Dim n As Integer
For Each r As Row In Tables("表A").Rows
    n =n+1
    If r.Checked = True Then
        output.show(n)
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
lcl0117
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
  发帖心情 Post By:2012/3/27 9:08:00 [只看该作者]

并非是处理数据,只是想增加一个顺序编号的列,请问如何操作啊

有什么方法吗?

[此贴子已经被作者于2012-3-27 9:08:36编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/27 9:11:00 [只看该作者]

行号列保持不变,另外增加一个逻辑列显示复选框。

 回到顶部
帅哥哟,离线,有人找我吗?
lcl0117
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
  发帖心情 Post By:2012/3/27 9:28:00 [只看该作者]

可是我希望显示复选框在前,编号序列在后啊

 回到顶部
帅哥哟,离线,有人找我吗?
lcl0117
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
  发帖心情 Post By:2012/3/27 9:54:00 [只看该作者]

问题已经解决,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
lcl0117
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:332 威望:0 精华:0 注册:2012/1/6 13:17:00
  发帖心情 Post By:2012/3/27 10:22:00 [只看该作者]

DataTables("管理账号维护_table1").DataCols.Add("编号",Gettype(Integer)) '增加编号列
dim i as integer = 0
For Each dr As Row In Tables("管理账号维护_table1").Rows '循环集合,给编号赋值
    i = i+1
    dr("编号") = i
Next

 

即可以出现复选框,又可以生成自动编号


 回到顶部