Foxtable(狐表) → 用户栏目 → 专家坐堂 → _SortKey的列如何获取？


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

主题：_SortKey的列如何获取？
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00 		_SortKey的列如何获取？  发帖心情 Post By：2017/10/26 11:31:00 [只看该作者]

用的是sql拼接字符保存，但遍历时_SortKey这个系统列没有，但用户有时会上下移动行位置，这样保存不了行位置的改变

Dim str2 As String = ""
For Each dc As DataCol In tb.dataCols
        If dc.IsBoolean Then
            If r(dc.Name) = True Then
                str2 + = 1 & ","
            Else
                str2 + = 0 & ","
            End If
        ElseIf dc.IsNumeric Then
            str2 + = r(dc.Name) & ","
        Else '日期或字符字段
            If r(dc.Name) = Nothing Then 
                str2 + = "Null" &  ","
            Else
                str2 + = "'" & r(dc.Name) & "',"
            End If
        End If
Next
上面遍历时datacols中没有此列
要怎么样才能得到这个列？
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你可以判断一下是否有 _sortkey 列

 

Dim tb As DataTable = DataTables("表A")
If tb.basetable.columns.contains("_Sortkey") Then
    msgbox("_Sortkey")
End If
If tb.basetable.columns.contains("_Locked") Then
    msgbox("_Locked")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2017/10/26 15:40:00 [只看该作者]

这样是可以看到，请教这种方式要如何遍历每列，并且判断列是什么类型？

Dim tb As DataTable = DataTables("表A")
For Each dc As DataCol In tb.basetable.columns
  If dc.IsBoolean Then
....
  End if
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim tb As DataTable = DataTables("表A")

For Each dc As object In tb.basetable.columns
    output.show(dc.ColumnName & " " & dc.DataType.name)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2017/10/26 18:19:00 [只看该作者]

因为遍历会多了其他一些默认的系统出来，还要每个去排除，每个表都确定有_SortKey列
所以想问下每行获取那列列值要怎么写，
Dim tb As DataTable = DataTables("表A")
dim r as row = tables("表A").current

msgbox(r(tb.basetable.columns("_SortKey")))

普通表这样就可以 msgbox(r("_SortKey")) ,直接引用后台表那列写出来总出错

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


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

哪句代码，报什么错？直接写 msgbox(r("_SortKey")) 为什么有问题？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2017/10/26 18:53:00 [只看该作者]

自己弄复杂了，我以为遍历时没显示这列就不能这样用，原来直接写就可以了，绕一大圈，谢谢老师了！

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