vb 循环的使用

页面导航:首页 > 软件编程 > vb.net > vb 循环的使用

vb 循环的使用

来源: 作者: 时间:2016-02-05 12:32 【

[sql] sql=|SELECT top 200 WF_ProcessName,COUNT(*) as records ,SUM(case when WF_DocStatus= 39;Current 39; then 1 else 0 end) as sends,SUM(case when WF_DocStatus= 39;ARC 39; t
[sql]  
sql=|SELECT top 200  WF_ProcessName,COUNT(*) as records ,SUM(case when WF_DocStatus='Current' then 1 else 0 end) as sends,SUM(case when WF_DocStatus='ARC' then 1 else 0 end) as archives FROM  [ce-linkOA].[dbo].[BPM_AllDocumentforcelink] where 1 = 1|  
  
               
dim subtemp as string
 
dim pid
[vb]  
if len(WF_document.khbh(0)) <> 0 and WF_document.khbh(0)<> "All" then  
        subtemp = WF_document.khbh(0)  
  
        pid= Split(subtemp,"#")  
        For i = LBound(pid , 1) To UBound(pid , 1)  
                  
             if   sign = "1" then                        
                     sql=sql+| and ( WF_ProcessUNID='|+Cstr(pid(i))+|' |  
                          sign="2"  
                  else  
                          sql=sql+" or  WF_ProcessUNID='"+Cstr(pid(i))+"' "  
             end if  
  
    NEXT i                       
            sql =sql+ ") "  
end if  
 
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<