hi evryone i am developping a window application and i need to use the crystal report to generate reports i have 2 databases named : Butterfly and Butterfly_Test Butterfly is used to real Data Butterfly_Test is used for testing i am using this code to load the report Dim myDbConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo With myDbConnectionInfo .ServerName = Glbl_Conn_Config.Server_Name .DatabaseName = Glbl_Conn_Config.Database_Name .Password = Glbl_Conn_Config.Password .UserID = Glbl_Conn_Config.Login End With Dim myTableLogonInfo As New CrystalDecisions.Shared.TableLogOnInfo Dim myDatabase As CrystalDecisions.CrystalReports.Engine.Database = My_Report.Database Dim myTables As CrystalDecisions.CrystalReports.Engine.Tables = myDatabase.Tables Dim myTable As CrystalDecisions.CrystalReports.Engine.Table For Each myTable In myTables myTableLogonInfo = myTable.LogOnInfo myTableLogonInfo.ConnectionInfo = myDbConnectionInfo myTable.ApplyLogOnInfo(myTableLogonInfo) Next ' ' Get the report parameters collection. ' crParameterFieldDefinitions = My_Report.DataDefinition.ParameterFields ' Add a parameter value - START crParameterFieldLocation = crParameterFieldDefinitions.Item("@Language") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterValues.Clear() crParameterDiscreteValue.Value = 1 crParameterValues.Clear() crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) Me.CrystalReportViewer1.ReportSource = My_Report Me.CrystalReportViewer1.PrintReport() evrything work fine when Glbl_Conn_Config.Database_Name = Butterfly_Test once i changed into Butterfly i have an error on loading report: Procedure or function SP_Select_All_User Expect Parameter @Language :doh: Can please any one help me

waelhawari

Thanks Guys. in fact i found it, all i have to do is: declaring a new event to my user control Public Event Selected_Index_Changed() and this Public Sub My_ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles My_ComboBox.SelectedIndexChanged Index = Me.My_ComboBox.SelectedIndex RaiseEvent Selected_Index_Changed() End Sub so when the combo box change index the user control raiseevent Selected_Index_Changed this way i can use it in the original form sorry if my post was to long just wanted to share my ideas and make the code much more better thanks again.

waelhawari

Hi experts, i am developing a window application, using VS 2005, i created a user control that contain a Combobox and error provider for my combo. Everything worked just fine until i needed to use the event SelectedindexChange, in fact, in my form i have my user control(containing Combo box) and a checked list box. For each value in my Combo box i have to load different values into my checked list box Therefore, i need to use the event selectedindexchange in my form can anyone teach me please how to create an event in my form to fire a function in my usercontrol when the index is changed? If there is another way hope to share it. the code of my user control (if there is any remarks or anything that i could be written much better or missing i will be thankful to tell me) Public Class All_In_One_ComboBox Private Err_Msg As String Private Index As Integer Private Err As Boolean = False Private Back_Color As Color = Color.White Private Fore_Color As Color = Color.Black Private _Font As New Font("Microsoft Sans Serif", 12, FontStyle.Regular, GraphicsUnit.Point) Public Property My_Back_Color() As Color Get My_Back_Color = Back_Color End Get Set(ByVal value As Color) Me.My_ComboBox.BackColor = value End Set End Property Public Property My_Fore_Color() As Color Get My_Fore_Color = Fore_Color End Get Set(ByVal value As Color) Me.My_ComboBox.ForeColor = value End Set End Property Public Property My_Text() As String Get My_Text = Trim(Me.My_ComboBox.Text) End Get Set(ByVal Value As String) Me.My_ComboBox.Text = Value End Set End Property Public Property My_Index() As Integer Get My_Index = Index End Get Set(ByVal Value As Integer) Index = Value End Set End Property Public Property My_Err_Rslt() As Boolean Get My_Err_Rslt = Err End Get Set(ByVal value As Boolean) Err = value End Set End Property Public Property My_Err_Msg() As String Get My_Err_Msg = Err_Msg End Get Set(ByVal value As String) Err_Msg = value End Set End Property Public Property My_Font() As Font Get My_Font = _Font End Get Se

10x a lot .... it's workin :-) waelhawari

hi everyone, plz plz plz i need help on my pb, i have a project to present on 12 of july & i still can find the solution to my pb i am using a visual basic 6 platform & i am using a flexgrid control ,i want to select each row appart & i want to wait 0.5 sec then select the next row. the pb is that the row keep on selected but i can't see the selected rows after the 10th row unless i click on the msflexgrid scrollbar. is there is any way to make it move without pressing. this is my code: Dim i As Long For i = 0 To 33 Me.MSFlexGrid1.Row = i Me.MSFlexGrid1.Col = 0 Me.MSFlexGrid1.SetFocus Me.MSFlexGrid1.ColSel = Me.MSFlexGrid1.Cols - 1 Call wait(0.5) ' function to wait Next End Sub so the pb is that i can see the 1st 10 rows but the other rows i can't plz plz i need help on it waelhawari

hi everybody, i am using a visual basic 6 platform, i have 2 forms, form1 & form2, from the form1 i am callin the form2 using : form2.show, but i have a pb i need to take the informations entered by user on the txtbox in from2 & use it in the form1 but the pb is that the form1 keep runing & he is waitin till the user press ok on the form2 to take the info. in other words i need to do somthin like the inputbox function in visual basic but i have more the one textbox. can anyone help me plz to solve this pb... i realy need help on it. 10x for replyin waelhawari

Any way, it's ok 10x a lot for replyin.. i will use i pictureBox & i will put the Scrollbar on it. 10x a lot again waelhawari

Hi again In fact, yes i need to put a lot of listbox control & the form is to small, so is there is anyway to do that, i am using a visual basic 6 platform. i need help on this plz, it's so urgent. 10x a lot for replyin. waelhawari

Hi again In fact, yes i need to put a lot of listbox control & the form is to small, so is there is anyway to do that. i need help on this plz, it's so urgent. 10x a lot for replyin. waelhawari

hi everybody, plz if any one could help me in this pb i need to add a scrollbar to my form & i want to activate them, i mean that i want when i press on the horizontal scrollbar, my form start to move. can anyone help me plz on this i be very thankfull. waelhawari