Visual Basic

Quote:

You have a choice. You can either

1) The slow way. Do the calculation in your property getter where you have to wait for EF to re-hydrate all the related child objects into memory and then your getter code applies its filter and does the calculation.

Or

2) You drop the property getter code and move the filtering to the query and let the database filter the child objects and do the math for you. Something the database engine was designed to do very well.

The choice is up to you.

dilkonika wrote:

You don't have my database , but you have my EF model from my first post.

dilkonika wrote:

Anyway , my last question was not for database , but for a simple In memory For.. each loop that run slow.

dilkonika wrote:

You that have problems with Entity ------ Read this book

You that have problems with C# ------------ Read this book.

Dim dt1 as DateTime=CDate("08/08/2014")

 Dim list1 = (From t In context.MyObj Select New With { _
      .Parent = t, _
      .chl =  (From t2 In t.chld.AsQueryable.Where(Function(t3) t3.Date1>=dt1) Select t2)
      .sum1 =(From t2 in t.chld.AsQueryable.Where(Function(t2) t2.date1<dt1).Select(Function(t3) t3.quantity).DefaultIfEmpty
}).ToList

 and after :

For Each l In list1
        l.Parent.vls=l.sum1
 Next

Partial Public Class Myobj
      Public Property id As Integer
      Public property name as string
      Public Overridable Property chld As ICollection(Of chld) = New HashSet(Of chld) 
   End Class
 

 Partial Public Class Myobj
      <NotMapped> Public Property vls As integer
End Class
 
Partial Public Class chld
    Public Property id As Integer
    Public Property date1 as DateTime
    Public Property quantity as Integer
    Public Property ParentID as integer
    Public Overridable Property MyObj1 As MyObj
End Class 

Public Class PseudoMyObj
    Inherits MyObj
End Class
 
 
Now on my form, I have this code :
  

Dim dt1 as DateTime=CDate("08/08/2014")

 
 Dim list1 = (From t In context.MyObj Select New With { _
      .Parent = New PseudoMyObj With {  _
      .chld =  (From t2 in t.chld.AsQueryable.Where(Function(t3) t3.Date1>=dt1) Select t2), _
      .vls=(t.chld.AsQueryable.Where(Function(t2) t2.date1<dt1).Select(Function(t3) t3.quantity).DefaultIfEmpty.Sum()) _
}).ToList

dim mylist as IEnumerable(of MyObj)=list1.Select(Function(t2) t2.Parent)

groupbox1.Visible = radiobutton1.Checked
groupbox2.Visible = radiobutton2.Checked
groupbox3.Visible = radiobutton3.Checked

Bluewolf31 wrote:

After I make a selection in C1

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

I got it : ) 
changed it to:

 If ddlCT1 Is "" Then

Now it functions perfectly.