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

admin

  f, d2 V2 I, l8 j! [9 C. S

. N, i' L3 i5 eTechnique  
There is no difference in setting up a query for a single Item or for many.  Only the
# X7 R) l" w0 R/ |criteria define the set size returned.  In this recipe you create an Item and populate
the query criteria, apply it, and iterating over the Items returned producing a HTML
<TABLE>  fragment.
" P# H* `. U+ {+ K
3 `- ~) B+ s4 [0 P( l
- s- `, w* J# J7 gJavaScript  
! ?) q- A/ s9 h/ zvar 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)
  ~) v$ s: u7 e. Y& N! Y! l7 M{
  var item = results.getItemByIndex(i);
  content += "" +
) j5 P$ u% v9 X6 [    "<tr>" +
      "<td>" + item.getProperty("item_number") + "</td>" +
: t8 c: w! t2 F( g2 j/ l5 V      "<td>" + item.getProperty("description") + "</td>" +
4 G' G# o3 G: N" Q      "<td>" + item.getProperty("cost") + "</td>" +
    "</tr>";
+ U; K1 P( r, N7 L0 r}
content += "</table>";
return content;
8 Y# v% I5 W) b# e! j2 Q
! y8 Y5 ]8 F1 Z* W" `C#  
Item qryItem = this.newItem("Part","get");
qryItem.setAttribute("select","item_number,description,cost");
% w/ a% z, t! L8 z" u/ dqryItem.setProperty("cost", "100", "gt");
+ M7 N2 K# {" j, |% ]' IItem results = qryItem.apply();
int count = results.getItemCount();
1 g  n. |; k4 U% [0 L. a- jint i;
; S& r& i. b& \1 _* l8 L2 b; Qstring content = "<table>";
for (i=0; i<count; ++i)
{
* Y" w8 X8 u6 S  Item item = results.getItemByIndex(i);
# h+ ]+ Q; m6 k$ R# V5 ]  content += "" +
2 `8 W5 K2 ~2 ?- u    "<tr>" +
      "<td>" + item.getProperty("item_number") + "</td>" +
      "<td>" + item.getProperty("description") + "</td>" +
8 }8 R/ ~( U) f4 b      "<td>" + item.getProperty("cost") + "</td>" +
    "</tr>";
" t8 a2 y! f/ G# k9 q) L}
content += "</table>";
Innovator innovator = this.newInnovator();
return innovator.newResult(content);

VB.Net  
Dim qryItem As Item = Me.NewItem("Part","get")
( `- ~& D$ p" @qryItem.SetAttribute("select","item_number,description,cost")
qryItem.SetProperty("cost", "100", "gt")
Dim results As Item = qryItem.Apply()
  n  X7 M; ?4 k3 s( A2 v1 JDim count As Integer = results.GetItemCount()
Dim i As Integer
Dim content As String = "<table>"
8 o$ D, D3 p- D7 F" WFor i=0 to count - 1
  Dim item As Item = results.GetItemByIndex(i)
  content += "" + _
& k# y; K2 E' @" q' A    "<tr>" + _
      "<td>" + item.GetProperty("item_number") + "</td>" + _
      "<td>" + item.GetProperty("description") + "</td>" + _
      "<td>" + item.GetProperty("cost") + "</td>" + _
, Y! e& ^- t% x7 [6 |    "</tr>"
! h  x2 W% w3 L( l1 y! {Next
9 @$ \5 e0 F3 l3 d" a8 m7 C% _content += "</table>"
0 j9 u9 f- w3 v& @6 D. J
% ?8 U) u1 V% GDim innovator As Innovator = Me.NewInnovator()
- ^) o7 k: k! R. e% K, X& h4 Nreturn innovator.NewResult(content)
0 m: w. _- T+ R( h9 y$ m

- C. @4 l, e+ Q6 C0 e