-----------------------------------------------------------

New Message on BDOTNET

-----------------------------------------------------------
From: LovedJohnySmith
Message 2 in Discussion

hi balaji       G'day    I understand ur problem, so y don't u use ".ttx" file for 
tat, cos i overcomed this kind of problem in my "Tel-Tales" project, so u can 
transport datas thro' ".ttx" file and u need to design using "field definition"   
first u may need to create ".ttx" file for ur datas ex :    Calls                 
Number  
   TimeSpan          Date  
   CallDate            Date  then u can use following code for this....                
   Dim objParmFrmDt As New CrystalDecisions.Shared.ParameterDiscreteValue()
                objParmFrmDt.Value = DateTime.Parse(dtFrom)
                
crvMain.ParameterFieldInfo.Item("FromDate").CurrentValues.Add(objParmFrmDt)            
     Dim objParmToDt As New CrystalDecisions.Shared.ParameterDiscreteValue()
                objParmToDt.Value = DateTime.Parse(dtTo)                 
crvMain.ParameterFieldInfo.Item("ToDate").CurrentValues.Add(objParmToDt)
                Dim objCallType As New CrystalDecisions.Shared.ParameterDiscreteValue()
                If strCallType = "All" Then
                    objCallType.Value = "Internal,Local,International"
                Else
                    objCallType.Value = strCallType
                End If
                
crvMain.ParameterFieldInfo.Item("CallType").CurrentValues.Add(objCallType)             
    Dim objCommType As New CrystalDecisions.Shared.ParameterDiscreteValue()
                If strCommType = "--All--" Then
                    objCommType.Value = "INBOUND AND OUTBOUND"
                Else
                    objCommType.Value = strCommType
                End If
                
crvMain.ParameterFieldInfo.Item("CommType").CurrentValues.Add(objCommType)             
    Dim objExt As New CrystalDecisions.Shared.ParameterDiscreteValue()
                objExt.Value = IIf(intExtention = -1, "--All--", intExtention)
                crvMain.ParameterFieldInfo.Item("ExtNo").CurrentValues.Add(objExt)     
            Dim objVol As New CrystalDecisions.Shared.ParameterDiscreteValue()
                objVol.Value = strVolType
                crvMain.ParameterFieldInfo.Item("VolType").CurrentValues.Add(objVol)   
I hope this will fullfill ur requirement, pls lemmi noe if u have more queries.   
thanx   warm regards, smith   "U CAN IF U THINK U CAN"  

-----------------------------------------------------------

To stop getting this e-mail, or change how often it arrives, go to your E-mail 
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw

Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help

For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact

If you do not want to receive future e-mail from this MSN group, or if you received 
this message by mistake, please click the "Remove" link below. On the pre-addressed 
e-mail message that opens, simply click "Send". Your e-mail address will be deleted 
from this group's mailing list.
mailto:[EMAIL PROTECTED]

Reply via email to