Visual Basic

Public Class WorkItem<br />
Public mvDependancyGroup As String = ""<br />
Public mvStoreOutput As Boolean = False<br />
Public mvName As String = ""<br />
Public mvMethod As [Delegate] = Nothing<br />
<b>Public mvInput As Object() = Nothing</b><br />
Public mvOutput As Object = Nothing<br />
Public mvException As Exception = Nothing<br />
Public mvInQ As DateTime = Nothing<br />
Public mvStarted As DateTime = Nothing<br />
Public mvCompleted As DateTime = Nothing<br />

	Public Function GetInQueue() As WorkItem()<br />
			Dim oWI As WorkItem<br />
			Monitor.Enter(oInQ)<br />
			Dim arWI() As Object = oInQ.ToArray<br />
			Monitor.Exit(oInQ)<br />
			Dim arResult(arWI.Length - 1) As WorkItem<br />
			For i As Integer = 0 To arWI.Length - 1<br />
				oWI = CType(arWI(i), WorkItem)<br />
				arResult(i) = oWI<br />
			Next<br />
			Return arResult<br />
<br />
	End Function<br />

<br />
Private Sub myReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Try<br />
            ChildFormAutoSizeFit(Me)<br />
            Me.Cursor = Cursors.WaitCursor<br />
            Me.MdiParent = frmMain<br />
<br />
            crxApp = New CRAXDRT.Application<br />
<br />
            crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
            crxDataBase = crxReport.Database<br />
            crxTables = crxDataBase.Tables<br />
<br />
            For Each crxTable In crxTables<br />
                crxTable.Location = DataSource 'My .mdb source path<br />
                crxTable.SetLogOnInfo("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & crxDataBasePath, "myDatabase.mdb", "", "myPassword")<br />
            Next crxTable<br />
<br />
'**** Note:<br />
  'When ever i used this recordSelectionFormula? it works properly<br />
  'and it get connected and show the report but then this<br />
  'recordSelectionFormula is something limited for filtering data thats<br />
  'why i need to use more flexible filter like CRXDRT.Report.SqlQueryString<br />
  'but then my problem is the login connection from the database is somewhat failed...<br />
'****<br />
<br />
            'this RecordSelectionFormula works<br />
            'crxReport.RecordSelectionFormula = strSelectionfrm<br />
<br />
            'this SQLQueryString failed.. why?? what's the different?<br />
            crxReport.SQLQueryString = strSqlQuery<br />
<br />
            AxCRViewer1.ReportSource = crxReport<br />
            AxCRViewer1.ViewReport()<br />
<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString())<br />
        Finally<br />
            Me.Cursor = Cursors.Default<br />
        End Try<br />
    End Sub<br />
<br />

<br />
strSelectionfrm = "{CmpnyDetails.IDNo} like '*' and {tblCompanyDetails.Status} = 'REGULAR' and {Attendance.AFrom} in #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# to #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#"<br />

<br />
strfilter = "Select * from CmpnyDetails as cd left outer join Attendance as att on att.IDNo = cd.IDNo where (att.AFrom Between #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# and #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#) and cd.[Status] = 'REGULAR' and cd.IDNo like '*'"<br />