Foxtable(狐表)用户栏目专家坐堂 → DataList数具绑定


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

主题:DataList数具绑定

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 15:27:00 [显示全部帖子]

Datalist可以单独设置显示那些列啊。所以楼主的问题,是可以解决的:

Dim ColumnList As String
For each c as Col in Tables("某表").Cols 
  If c.Visible Then
      ColumnList = ColumnList & c.Name & ","
  End if
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.ColumnList= ColumnList.Trim(",")
dst.DataTable = DataTables("某表")
dst.Build()

[此贴子已经被作者于2009-5-18 15:28:37编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 16:29:00 [显示全部帖子]

那个代码是排除隐藏列

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 16:37:00 [显示全部帖子]

以下是引用yangming在2009-5-18 16:33:00的发言:

楼主要的是显示隐藏列的,呵呵


隐藏列本来就是可见的呢。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 16:46:00 [显示全部帖子]

我搞错,那就设置columnList属性,包括所有列即可。

Dim ColumnList As String
For each c as Col in Tables("某表").Cols 
      ColumnList = ColumnList & c.Name & ","
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.ColumnList= ColumnList.Trim(",")
dst.DataTable = DataTables("某表")
dst.Build()

[此贴子已经被作者于2009-5-18 16:46:23编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/19 7:58:00 [显示全部帖子]

呵呵,是我的错误,我没有验证,凭感觉写的。


 回到顶部