主题：此表不支持移动行 无法设置标识列

 你直接在数据库那里加入一列_Sortkey列试试

 实际上，就是加一列 _Sortkey 列，才能实现排序的。

 

 插入行标识列，就是插入一列 _Sortkey 列

恢复8、9楼，不可能存在你说的问题，代码肯定不会报错。

如果说不支持，就肯定不支持。

 

msgbox(CurrentTable.Name)

 

看看弹出的表名是什么

 汗，直接插入_Sortkey列就没问题了啊。

 

 

此主题相关图片如下：qq截图20150806100023.jpg

再有，代码应该这样写

 

Dim dr As DataRow = DataTables("tb_order").AddNew()
Dim dtstr As String = CStr(Date.Today.Second)
dr("编号")="DD" & dtstr & Rand.NextString(4)
dr("日期")=Date.Today

With Tables("tb_order")
    .Current.Move(.Position+1)
End With

 

 

 汗，没有问题啊。很简单的问题啊，叫你加一列_Sortkey列啊

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:movetest.zip

1、通用的上一行下一行，也是增加_Sortkey列

 

2、_Sortkey列不显示，值foxtable自己加上去的

 

3、没有这一列就不可能实现移动行

无语。插入行和移动行根本就不同啊。

 

你在任意一个表写下面的代码都没问题啊

 

With Tables("订单明细")
    .Position = .Position - 1
End With

 

 

Move的意思是，改变行在表里面的位置。

 

Position是设置焦点行的位置。

 

根本就不同。