主题：[求助]交叉统计

呵呵，我也来个列明排序的:

 

Dim t As Table = Tables("表A")
Dim nms As new List(of String)
For Each c As col  In t.cols
    nms.add(c.name)
Next
nms.sort()
For i As Integer = 0 To nms.count -1
    t.cols(nms(i)).move(i)
Next

自己编码，这样就可以排序：

 

http://www.foxtable.com/help/topics/2394.htm

 

将：

 

 dr("当前规格_1") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "'

 

改为：

 

Dim v As Integer = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "'

if v > 0 then

    dr("当前规格_1") = v

end if

 

其他类似