主题：专业报表取数与实际顺序不一致

 

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "_Sortkey")

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "排序列")

改成你自己的排序列啊，不然就写 _Identify

哦，要这样写

 

Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter, "", "序号")

 

不，可，能。

 

上传实例。

加一个[]括号

 

    Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter,"","[_Identify]")

Dim Rows1 As List (of DataRow) = DataTables("汇总表").sqlselect("类型= '正常'and 开始日期 is null and 截止日期 is null", "", "[_Sortkey]"）

没看懂你什么意思啊。上传具体例子，执行什么代码最后要什么效果啊？

 

我测试没你说的问题，保存正常。

那你就这样提取

 

Dim ls As new List(Of String)
For Each r As Row In Tables("表A").Rows
    If ls.Contains(r("第一列")) = False Then
        ls.add(r("第一列"))
    End If
Next
msgbox(ls.count)