Forums
New posts
Search forums
What's new
New posts
New profile posts
Latest activity
Members
Current visitors
New profile posts
Search profile posts
C# Community
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Visual Studio .NET
IDE
TextBox Looses Text Property
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
[QUOTE="EmmaLawton, post: 1868, member: 168"] I have a form with 3 frames with numerous text boxes and combo boxes on them. My code loops through each control on each frame on the form and captures the value of the text property of each textbox. Except that for all but 2 of the textboxes, the value of the text property is an empty string, irrespective of what the user has input into the textbox. Here is the code... [size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] CaptureScreen([/size][size=2][color=#0000ff]ByRef[/color][/size][size=2] rarySQLFields(,), _ [/size][size=2][color=#0000ff]ByRef[/color][/size][size=2] raryOraFields(,)) [/size][size=2][color=#008000] [/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] ctrl [/size][size=2][color=#0000ff]As[/color][/size][size=2] Control [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]As[/color][/size][size=2] Control [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intPos [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Integer [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] rarySQLFields(18, 1) [/size][size=2][color=#0000ff]Try [/color][/size][size=2][color=#0000ff]For[/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] ctrl [/size][size=2][color=#0000ff]In[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls [/size][size=2][color=#0000ff]If[/color][/size][size=2] ctrl.GetType.Name = "GroupBox" [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]For[/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]In[/color][/size][size=2] ctrl.Controls [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.GetType.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "TextBox" [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtFEID" rarySQLFields(2, 0) = grpctrl.Text rarySQLFields(2, 1) = "@FE" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtRMGRef" rarySQLFields(4, 0) = grpctrl.Text rarySQLFields(4, 1) = "@ClientRef" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCName" rarySQLFields(12, 0) = grpctrl.Text rarySQLFields(12, 1) = "@Name" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCWork" rarySQLFields(14, 0) = grpctrl.Text rarySQLFields(14, 1) = "@POW" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCOcc" rarySQLFields(13, 0) = grpctrl.Text rarySQLFields(13, 1) = "@Occupation" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCAccidentDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(15, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(15, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(15, 1) = "@AccidentDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCNature" [/size][size=2][color=#008000]'nature of accident [/color][/size][size=2]rarySQLFields(16, 0) = grpctrl.Text rarySQLFields(16, 1) = "@AccidentNature" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtType" [/size][size=2][color=#008000]'type of injury [/color][/size][size=2]rarySQLFields(17, 0) = grpctrl.Text rarySQLFields(17, 1) = "@Injury" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtPCode" rarySQLFields(18, 0) = grpctrl.Text rarySQLFields(18, 1) = "@PostCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtBPRef" rarySQLFields(11, 0) = grpctrl.Text rarySQLFields(11, 1) = "@BPRef" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCSettlementDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(10, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(10, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(10, 1) = "@SettlementDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtClosedDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(9, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(9, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(9, 1) = "@ClosedDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtOpenedDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(8, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(8, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(8, 1) = "@OpenedDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2][color=#0000ff]Else [/color][/size][size=2]Debug.WriteLine("Missed " & grpctrl.Name) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] "ComboBox" [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClientID" [/size][size=2][color=#0000ff]If[/color][/size][size=2] IsNothing(raryOraFields) [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] raryOraFields(1, 1) [/size][size=2][color=#0000ff]Else [/color][/size][size=2]intPos = GetPosition(raryOraFields) [/size][size=2][color=#0000ff]If[/color][/size][size=2] intPos < 0 [/size][size=2][color=#0000ff]Then [/color][/size][size=2]Err.Raise(999, "frmDetails.CaptureScreen", "Error gather search criteria") [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]raryOraFields(intPos, 0) = grpctrl.Text raryOraFields(intPos, 1) = "CLIENT_MATTER.CLIENT_ID" rarySQLFields(1, 0) = [/size][size=2][color=#0000ff]CInt[/color][/size][size=2](grpctrl.Text) rarySQLFields(1, 1) = "@ClientID" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboMatterNum" [/size][size=2][color=#008000]'0 [/color][/size][size=2][color=#0000ff]If[/color][/size][size=2] IsNothing(raryOraFields) [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] raryOraFields(1, 1) [/size][size=2][color=#0000ff]Else [/color][/size][size=2]intPos = GetPosition(raryOraFields) [/size][size=2][color=#0000ff]If[/color][/size][size=2] intPos < 0 [/size][size=2][color=#0000ff]Then [/color][/size][size=2]Err.Raise(999, "frmDetails.CaptureScreen", "Error gather search criteria") [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]raryOraFields(intPos, 0) = grpctrl.Text raryOraFields(intPos, 1) = "CLIENT_MATTER.MATTER_NUM" rarySQLFields(0, 0) = grpctrl.Text rarySQLFields(0, 1) = "@MatterNum" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClass" rarySQLFields(6, 0) = grpctrl.Text rarySQLFields(6, 1) = "@ClassCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboBCodes" rarySQLFields(5, 0) = grpctrl.Text rarySQLFields(5, 1) = "@BudgetCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClientName" rarySQLFields(3, 0) = grpctrl.Text rarySQLFields(3, 1) = "@RMGClient" [/size][size=2][color=#0000ff]Case[/color][/size][size=2][color=#0000ff]Else [/color][/size][size=2]Debug.WriteLine("Missed " & grpctrl.Name) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] "NumericUpDown" rarySQLFields(7, 0) = nudProbability.Value rarySQLFields(7, 1) = "@Probability" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Next[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]Next [/color][/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception Debug.WriteLine(ex.Message) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Try [/color][/size][size=2][color=#0000ff] [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub[/color][/size] [color=#0000ff][/color] [color=#0000ff][/color] [size=2][color=black]I've run out of time on my project and need to resolve this issue ASAP. Has anyone experienced anything similar?[/color][/size] [color=black][/color] [size=2][color=black]Many Thanks[/color][/size] [size=2][color=#0000ff] [/color][/size] [/QUOTE]
Insert quotes…
Verification
Post reply
Visual Studio .NET
IDE
TextBox Looses Text Property
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.
Accept
Learn more…
Top
Bottom