Data Reports

Hi all,

How can i add or delete some columns from datareport at runtime.
How can i refresh datareport at runtime.

How can i format fields at runtime
How can i cjange the datastring or database at runtime.

Using XP
Using VB6
Using Data Environment
Using Data Report not Crystal Reports.

Thanx

re: Data Reports

Let's try it one at a time, if you do not mind, Ali...

I think this will handle refreshing the data:

Tell us how that works then we'll tackle the rest. How's that for a deal?

Dököll

re: Data Reports

Thanks for the reply dokol.
But as i mention i am using dataenvironment for this purpose.
I don't want to make a connection programatically.
I just want to refresh the dataenvironment.
How can i do it.

re: Data Reports

Some more questions please..
How can i mke new controls in a datareport.
Thanx

re: Data Reports

How can i make a datareport progrmaticaly.
Thanx

re: Data Reports

Both the threads are merged for better management of the forum.

re: Data Reports

HI

as far as my knowledge is we cannot delete control from datareport but can set their visibliltity to false. but for this type of problams i apply following logic.

draw 13 (or any number ) lables for headings and 13 Text boxes in the datareport.

set their visible property to false.

name labels as Label0, label1, label2.... and so on
similarlay name textboxes as Text0,Text1,Text2 and so on

Query to make recordset must look as :

select strStudentName as [Student Name],strFatherName as [Father Name] from Table

write following loop to bind these controls

for i = 0 to rst.fields.count-1

dataReport.sections("PH").controls("Label" & i).caption = rst.fields(i).name
dataReport.sections("PH").controls("Label" & i).visible = true

dataReport.sections("Detail").controls("Text" & i).datamember = ""
dataReport.sections("Detail").controls("Text" & i).datafield = rst.fields(i).name
dataReport.sections("Detail").controls("Text" & i).visible = true
next

dim ii
for ii = i to 13 '(Max no of controls in the data report)
dataReport.sections("Detail").controls("Text" & ii).datamember = ""
dataReport.sections("Detail").controls("Text" & ii).datafield = rst.fields(0).name
dataReport.sections("Detail").controls("Text" & ii).visible = false
next

This way you can show or hide controls at run time
i have directly typed the code in this window. so possibilit of errors exists. These lines are just to suggest the logic

regards
manpreet singh dhillon hoshiarpur

re: Data Reports

Thanks a lot.
I ll try it and tell you how it works.

re: Data Reports

>>>>>hii nice snippet...workin well