- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请帮忙解释下“设置标志列” (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40624)
-- 发布时间：2013/9/25 8:40:00
-- [求助]请帮忙解释下“设置标志列”
我在http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=40619中提问关于_SortKey的问题，有点甜老师给出解释是参考帮助的“设置标志列”，看了看，不甚了解，再次先询问下关于此功能的详细点的解释，并且，我在例子中的：“高效率的流水账”中也未找到_SortKey列，请老师们再指点一下。谢谢
此主题相关图片如下：qq截图20130925083853.png
-- 发布时间：2013/9/25 8:42:00
--
真是晕,高校流水账是肯定有 _SortKey列的, 这就是一个用来记录默认排序的列, 有它才可以使用移动插入功能, 有点甜发的帮助连接也告诉你如何设置了,也告诉你标识列的用途了啊.
-- 发布时间：2013/9/25 9:04:00
--
我不清楚是不理解设置咧的问题才导致，还是有其他问题，现将问题发给您看，谢谢Bin老大：
代码如下：
Select Case e.DataCol.Name
Case "疫苗ID","入库(领用)","出库(使用)","拥有者"
Dim drs As List(of DataRow)
Dim Filter As String
drs = e.DataTable.Select(Filter)
For Each dr As DataRow In drs
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = \'" & dr("疫苗ID") & "\' and 拥有者 = " & dr("拥有者")
Dim Val1 As Double = e.DataTable.Compute("Sum(入库(领用))",Filter)
Dim Val2 As Double = e.DataTable.Compute("Sum(出库(使用))",Filter)
dr("库存") = Val1 - Val2
Next
End Select
此主题相关图片如下：qq截图20130925085644.png
此主题相关图片如下：qq截图20130925085847.png
-- 发布时间：2013/9/25 9:14:00
--
你上个例子看看吧
-- 发布时间：2013/9/25 12:10:00
--
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = \'" & dr("疫苗ID") & "\' and 拥有者 = " & dr("拥有者")
你的拥有者列如果是数字列就是你在自己那样，如果是字符列，那就得改为：
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = \'" & dr("疫苗ID") & "\' and 拥有者 = \'" & dr("拥有者") & "\'"
-- 发布时间：2013/9/25 12:12:00
--
补充一下，楼主的截图可以看出，那个001在左边，由此知道楼主那个是字符列
-- 发布时间：2013/9/25 13:08:00
--
刚回来，出去跑了一上午，正在调试，多谢两位老师。
-- 发布时间：2013/9/25 13:37:00
--
还是报上图的那个错误。请指点下
-- 发布时间：2013/9/25 13:54:00
--
我这里也没表达式列，也没有用到child啊。。。为啥呢？
-- 发布时间：2013/9/25 14:00:00
--
MessageBox.show(Filter)
输出看一下，多检查一些总没错。