【Aras二次开发】查询和迭代查找item集

admin

5 p  m- a7 ?& N- p; |) @

6 {5 c* q+ q8 ]8 k4 o, _
Technique  
1 x) ?, t  f7 l1 L: PThere is no difference in setting up a query for a single Item or for many.  Only the
' W# B( W2 ^  ?- x0 V& v" D9 icriteria define the set size returned.  In this recipe you create an Item and populate
3 V  |4 b0 O" f( uthe query criteria, apply it, and iterating over the Items returned producing a HTML
! K0 s- m! [( A8 g& T<TABLE>  fragment.
3 ]! o+ U0 V4 m5 |- f) E0 ~

% @# s9 E- k- ~. A7 sJavaScript  
var qryItem = this.newItem("Part","get");
qryItem.setAttribute("select","item_number,description,cost");
qryItem.setProperty("cost", "100", "gt");
var results = qryItem.apply();
var count = results.getItemCount();
var content = "<table>";
for (var i=0; i<count; ++i)
{
' s! f7 P6 ?% B3 ~4 p0 X! y  var item = results.getItemByIndex(i);
  content += "" +
    "<tr>" +
6 q7 h5 V) M9 O. {* V      "<td>" + item.getProperty("item_number") + "</td>" +
4 L8 [; ?' R% V" G      "<td>" + item.getProperty("description") + "</td>" +
; o7 ~5 S2 Q4 F3 F. L      "<td>" + item.getProperty("cost") + "</td>" +
    "</tr>";
: v2 O- C8 B' c/ o3 M( P+ s}
content += "</table>";
return content;

C#  
- r* m% d# o. qItem qryItem = this.newItem("Part","get");
. C  g  q; M5 r7 }, [% W3 s9 LqryItem.setAttribute("select","item_number,description,cost");
qryItem.setProperty("cost", "100", "gt");
! p0 {( h" e- }Item results = qryItem.apply();
int count = results.getItemCount();
int i;
! K$ Q0 o4 P9 i! v3 astring content = "<table>";
for (i=0; i<count; ++i)
{
7 W1 C4 B- r2 Y1 L  Item item = results.getItemByIndex(i);
  content += "" +
    "<tr>" +
3 f& r& a# M! b( c6 r7 E3 N1 ?1 @/ C      "<td>" + item.getProperty("item_number") + "</td>" +
      "<td>" + item.getProperty("description") + "</td>" +
      "<td>" + item.getProperty("cost") + "</td>" +
1 W8 C1 H4 \7 X9 G    "</tr>";
}
/ t, L( Z3 Y) f, Econtent += "</table>";
Innovator innovator = this.newInnovator();
return innovator.newResult(content);

VB.Net  
; q; I+ Q, F4 ]* T7 LDim qryItem As Item = Me.NewItem("Part","get")
& W& `& z' F" v; _% M- |qryItem.SetAttribute("select","item_number,description,cost")
7 }" d8 O& _' H+ J1 ]3 xqryItem.SetProperty("cost", "100", "gt")
5 p9 f( I( o) x0 hDim results As Item = qryItem.Apply()
+ x- x5 Y' }  EDim count As Integer = results.GetItemCount()
8 p" E1 h; ~3 e6 Q, WDim i As Integer
% C. S; g6 C6 I" H3 q3 m3 r& qDim content As String = "<table>"
: J, k& w2 C0 \+ M8 N" gFor i=0 to count - 1
  Dim item As Item = results.GetItemByIndex(i)
  content += "" + _
( b# T& Q* f, S* _0 R' H1 q, o  o    "<tr>" + _
      "<td>" + item.GetProperty("item_number") + "</td>" + _
      "<td>" + item.GetProperty("description") + "</td>" + _
/ M/ h1 _6 k; _" F) X+ I9 C      "<td>" + item.GetProperty("cost") + "</td>" + _
    "</tr>"
Next
; E- X7 }/ Q6 P' ucontent += "</table>"
9 `( s. G" L- r
. `7 n7 x- S$ I0 lDim innovator As Innovator = Me.NewInnovator()
return innovator.NewResult(content)

/ F( e: h. m0 _- {3 f
/ W$ t2 f0 c' X! A