 |
In
this design we place Report Section to the content slot. |
|
In
connection slot place connection component and select AcodbcConnection
from Select Component Dialog
|
|
In
component properties dialog set datasource to egData.
|
|
In
DataStream slot place Data filter from the Data palette
|
|
Select
AcSingleInputFilter
from the list.
|
|
In
Input place Query component from the palette and double click . In
Component Editor clock on the Ellipse button and give blank username
and password in Database Login.Expand the egdata tree and drag out the
Address table and drag * to the Columns grid .
|
|
Add
two TextControls in frame and set ValueExp to Address.AddrName ,Address.Addrcity ,
Address.Addrstate.
|
|
Double
click the SingleInputFilter and
select Fetch() function from the method tab and click Override button
|
|
Type the remaining lines to the function after '
Set Fetch = Super::Fetch( )
|
|
Dim row as DataRow
Dim Kount as Integer
Do
Set row=InputAdapter.Fetch()
If row is Nothing Then
Exit Function
End If
Kount=Kount+1
If Kount>10 Then
Exit Function
End If
Loop until
row.Address.Addrstate="MH"
Set Fetch=row
End Function
|
|
|
Filter : Filter describes the creation of data filter that conditionally selects rows. We can write the filter code through the Fetch () function.
Fetch ():This function use to fetches a row from the filter. Fetch () retrieves one row per each time.
In this coding we fetch the row from the database one by one and checks the Address_addrstate is “MH” or not this will continue up to 10 rows. If the condition is true the row should displayed
|
