谁能帮忙分析这代码，，，，， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁能帮忙分析这代码，，，，，

共有10604人关注过本帖树形打印复制链接主题：谁能帮忙分析这代码，，，，，

jackshen888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：79 积分：850 威望：0 精华：0 注册：2011/5/21 20:19:00

谁能帮忙分析这代码，，，，， 发帖心情

Post By：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

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

jackshen888

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：79 积分：850 威望：0 精华：0 注册：2011/5/21 20:19:00

Post By：2011/7/17 19:00:00 [显示全部帖子]

hhbb,, 在吗？

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

谢谢了

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

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