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


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

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


加好友 发短信
等级：八尾狐 帖子：1926 积分：17397 威望：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中没有此列
要怎么样才能得到这个列？
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1926 积分：17397 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1926 积分：17397 威望：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")) ,直接引用后台表那列写出来总出错

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


加好友 发短信
等级：八尾狐 帖子：1926 积分：17397 威望：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.04297 秒, 5 次数据查询