共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：谁能帮忙分析这代码，，，，，

1楼

jackshen888 发表于：2011/7/17 7:08:00

Dim t As Table
Dim s1,s2 As String
Dim Ls As List(Of String)
Ls = DataTables("b").GetUniqueValues("", "加工工艺")

For Each s1 In Ls
s2+ =",iif(加工工艺 = '" & s1 & "'" & ",数量 ,Null) as 加工工艺" & s1.Replace("号工艺","")
Next

t = Tables("窗口1_Table1")
t.FILL("Select [_Identify],订单号,颜色" & s2 & ",数量 as 订单数量 From{B}",True)
t.sort = "订单号"

这段代码其中有一个我不太理解，，能否有朋友指导一下，，“”

For Each s1 In Ls
s2+ =",iif(加工工艺 = '" & s1 & "'" & ",数量 ,Null) as 加工工艺" & s1.Replace("号工艺","")
Next

就是这部分了。谢谢请加注解。

2楼

狐狸爸爸 发表于：2011/7/17 7:42:00

我SQL不行，也难以理解，楼主最好问问代码的原作者。

其实统计的话，用foxtable自带的交叉统计、分组统计，更容易一点，不伤脑细胞。

3楼

bjljb 发表于：2011/7/17 10:20:00

请把代码中提到的b表给个样子出来。

另外，s2+ =好像不是Foxtable的语法吧！

4楼

hhbb 发表于：2011/7/17 10:49:00

Dim g As New CrossTableBuilder("统计表1", DataTables("b"))
g.HGroups.AddDef("订单号")
g.HGroups.AddDef("颜色")
g.VGroups.AddDef("加工工艺")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.Build()

Dim t As Table = Tables("统计表1")
Dim s As String

For Each c As Col In t.Cols
   If c.name.StartsWith("数量_") Then '如列名是以[数量_]开头则
   c.Caption = c.name.Replace("数量_","加工工艺") '重新生成列标题
   End If
Next
t.Cols("合计").Caption = "订单数量"
t.DataTable.BuildHeader()
MainTable = t

也还是要伤一点脑细胞的：
重新生成想要的列标题

[此贴子已经被作者于2011-7-17 11:04:23编辑过]

5楼

hhbb 发表于：2011/7/17 11:01:00

其实一楼的代码也不难理解：从 DataTables("b").GetUniqueValues("", "加工工艺")取得的不重复的记录是［1号工艺，2号工艺，3号工艺］，以此生成水平交叉列（需改名为：加工工艺1，加工工艺2，加工工艺3）

For Each s1 In Ls
s2+ =",iif(加工工艺 = '" & s1 & "',数量 ,Null) as 加工工艺" & s1.Replace("号工艺","")
Next

以上语句是为了动态生成下面sql语句中颜色（颜色对应）部位字符串

Select [_Identify],订单号,颜色,iif(加工工艺 = '1号工艺',数量 ,Null) as 加工工艺1,iif(加工工艺 = '2号工艺',数量 ,Null) as 加工工艺2,iif(加工工艺 = '3号工艺',数量 ,Null) as 加工工艺3,数量 as 订单数量 From{B}

[此贴子已经被作者于2011-7-17 14:35:28编辑过]

6楼

狐狸爸爸 发表于：2011/7/17 17:15:00

呵呵，谢了，学习中ing.

7楼

jackshen888 发表于：2011/7/17 19:00:00

hhbb,, 在吗？

能不能帮我把之前的这个文件改个我现在传上来的效果，，，，，

谢谢了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目105.table

8楼

hhbb 发表于：2011/7/17 22:21:00

Dim t As Table = Tables("窗口1_Table1")

t.StopRedraw

Dim g As New CrossTableBuilder("统计表1", DataTables("b"))

g.HGroups.AddDef("订单号")

g.VGroups.AddDef("加工工艺")

g.Totals.AddDef("数量")

g.HorizontalTotal = True

t.DataSource =g.BuildDataSource()

t.DataTable.DataCols.Add("颜色",Gettype(String))

t.Cols("颜色").Move(1)

For Each r As Row In t.Rows

r("颜色") = DataTables("b").GetComboListString("颜色","订单号='" & r("订单号") & "'").replace("|",",")

For Each c As Col In t.Cols

If c.name.StartsWith("数量_") Then

c.Caption = "已" & c.Caption & "数量"

End If

t.Cols("合计").Caption = "订单数量"

t.DataTable.BuildHeader()

t.AutoSizeCols

t.ResumeRedraw

共8 条记录, 每页显示 10 条, 页签: [1]