Momentaneamente ho risolto cosi' ...
soluzione che funziona ma che molto lenta .....codice:Private Function calcola_fi(ByVal limite As Integer) As IntegerDim dbConn1 As New OleDbConnection(stringaconn) Dim re As Integer dbConn1.Open() Dim dbAdapter_fi As New OleDbDataAdapter("select * from FI where FIimp >= " & limite, dbConn1) Dim dbAdapter_rg As New OleDbDataAdapter("select * from RG", dbConn1) Dim dbDataSet_fi As New DataSet Dim dbDataSet_rg As New DataSet dbAdapter_fi.Fill(dbDataSet_fi) dbAdapter_rg.Fill(dbDataSet_rg) For Each fi_ro As DataRow In dbDataSet_fi.Tables(0).Rows Dim dbAdapter_tmp As New OleDbDataAdapter("select distinct (RGcod) from RG where RGimp >= " & limite & " and RGcat <> 950 and RGcat <> 399 and RGdatadel >= #" & CDate(datavi.Text) & "# and RGcod = " & fi_ro.Item("FIcod"), dbConn1) Dim dbDataSet_tmp As New DataSet dbAdapter_tmp.Fill(dbDataSet_tmp) If dbDataSet_tmp.Tables(0).Rows.Count > 0 Then re = re + 1 End If calcola_fi = re Next dbConn1.Close()
Qualcuno sa aiutarmi a velocizzare questa ricerca ?
Grazie

Rispondi quotando