新增文章

文章标题分类内容

Private Sub txtSeach_LostFocus()

aTxt = "":
   
   If Len(txtSeach.Value) > 0 Then
   
      aSplits = Split(txtSeach.Value, ","):  '拆分条件
      
      For Each aSplit In aSplits
      
         If Len(aSplit) > 0 Then
         
            aTxt = aTxt & IIf(aTxt = "", " where ", " and ") & "( ( nz(FPriceName) +' | '+ nz(FContent) +' | '+ nz(FUnit) +' | '+ Format(nz(FPrice),'0.######')  +' | '+ nz(FCreaterName) +' | '+ nz(FCreateTime) ) like '*" & aSplit & "*' )"
         End If
      Next
      
   End If
   
   
   FSeq = "( select count(*) from (select * from v_PriceList " & aTxt & " ) as t2  where  ( nz(t2.FPriceName) +' | '+ nz(t2.FContent) +' | '+ nz(t2.FUnit) +' | '+ Format(nz(t2.FPrice),'0.######') ) <= ( nz(t1.FPriceName) +' | '+ nz(t1.FContent) +' | '+ nz(t1.FUnit) +' | '+ Format(nz(t1.FPrice),'0.######') ) ) as FSeq "    '计算序号
   
   Sub1.Form.RecordSource = " select * ," & FSeq & "  from (select * from v_PriceList " & aTxt & " ) t1 order by t1.FPriceName,t1.FContent,t1.FUnit,t1.FPrice ; "      '排序
   
   
   Sub1.Form.Requery
   
End Sub