DataBindings At "RunTime" Problems

[HAN(removethis)twister]

I've tried to create 11 textboxes as variables (not actually visible in
the program, not in Windows Form Designer) and have set DataBindings to
the text properties of the TextBoxes BUT according to tests I've run, it
says that the DataBindings exist, but the IsBinding is set to False, and
is ReadOnly (the bindings exist, they just aren't active AND I
can't/don't know how to make them active). Is there any way to allow
these 11 textboxes' text properties to have a DataBinding attached to it
at RunTime? Thanks for any help!

[Ken Tucker [MVP]]

Hi,

This is how to bind a textbox thru code.
TextBox1.DataBi ndings.Add("Tex t", ds.Tables(0), "myColumnNa me")

Ken

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

"HAN(removethis )twister" <"HAN(removethi s)twister"@comc ast.net> wrote in
message news:e4******** ******@TK2MSFTN GP11.phx.gbl...

I've tried to create 11 textboxes as variables (not actually visible in
the program, not in Windows Form Designer) and have set DataBindings to
the text properties of the TextBoxes BUT according to tests I've run, it
says that the DataBindings exist, but the IsBinding is set to False, and
is ReadOnly (the bindings exist, they just aren't active AND I can't/don't
know how to make them active). Is there any way to allow these 11
textboxes' text properties to have a DataBinding attached to it at
RunTime? Thanks for any help!

[Cor]

Hi Han,

To what do you want the textboxes to bind?

Cor

I've tried to create 11 textboxes as variables (not actually visible in
the program, not in Windows Form Designer) and have set DataBindings to
the text properties of the TextBoxes BUT according to tests I've run, it
says that the DataBindings exist, but the IsBinding is set to False, and
is ReadOnly (the bindings exist, they just aren't active AND I
can't/don't know how to make them active). Is there any way to allow
these 11 textboxes' text properties to have a DataBinding attached to it
at RunTime? Thanks for any help!

[HAN(removethis)twister]

Cor wrote:

Hi Han,

To what do you want the textboxes to bind?

Cor

I've tried to create 11 textboxes as variables (not actually visible in
the program, not in Windows Form Designer) and have set DataBindings to
the text properties of the TextBoxes BUT according to tests I've run, it
says that the DataBindings exist, but the IsBinding is set to False, and
is ReadOnly (the bindings exist, they just aren't active AND I
can't/don't know how to make them active). Is there any way to allow
these 11 textboxes' text properties to have a DataBinding attached to it
at RunTime? Thanks for any help!

Different Columns in two different tables.

[HAN(removethis)twister]

HAN(removethis) twister wrote:

Cor wrote:

Hi Han,

To what do you want the textboxes to bind?

Cor

I've tried to create 11 textboxes as variables (not actually visible in
the program, not in Windows Form Designer) and have set DataBindings to
the text properties of the TextBoxes BUT according to tests I've run, it
says that the DataBindings exist, but the IsBinding is set to False, and
is ReadOnly (the bindings exist, they just aren't active AND I
can't/don't know how to make them active). Is there any way to allow
these 11 textboxes' text properties to have a DataBinding attached to it
at RunTime? Thanks for any help!

Different Columns in two different tables.

I created a textbox in the Form Designer with a DataBinder as reference,
copied the code to make the DataBinding to the Text Property, and edited
it for each textbox, and put this "code" in the Load event of the form.
My problem, as stated before, is that the IsBinding Property for some
reason is set to false, and I need it to be set to true.

[Cor]

Hi Han,

This is the only code you need to bind a textbox.

\\\code changed watch typos as sample
textbox1.DataBi ndings.Add(New Binding("Text", dataset1.Tables (0),
"FirstName" ))
textbox2.DataBi ndings.Add(New Binding("Text", dataset1.Tables (0),
"LastName") )
///
If you want to scroll up through it
\\\
CType(BindingCo ntext(dataset1. Tables(0)), CurrencyManager ).position += 1
///
,

I hope this helps,

Cor

[HAN(removethis)twister]

Cor wrote:

Hi Han,

This is the only code you need to bind a textbox.

\\\code changed watch typos as sample
textbox1.DataBi ndings.Add(New Binding("Text", dataset1.Tables (0),
"FirstName" ))
textbox2.DataBi ndings.Add(New Binding("Text", dataset1.Tables (0),
"LastName") )
///
If you want to scroll up through it
\\\
CType(BindingCo ntext(dataset1. Tables(0)), CurrencyManager ).position += 1
///
,

I hope this helps,

Cor

I've tried this, the IsBinding property is still set to false!

[HAN(removethis)twister]

Cor wrote:

Hi Han,

Send some code, I am looking in the dark.

And please paste it first in a notebook, copy it then and paste it than in
this message because others it is mostly unreadable.

Cor

Right Underneath "Windows Form Designer Code" Region:
Dim InvTxt(10) As TextBox

After Clear, Fill Commands in Form_Load Sub:
Dim num As Integer
For num = 0 To 10
InvTxt(num) = New TextBox
Next
InvTxt(0).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAccoun tMoney")
InvTxt(1).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerNameLa st")
InvTxt(2).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerNameFi rst")
InvTxt(3).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn1")
InvTxt(4).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn2")
InvTxt(5).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn3")
InvTxt(6).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn4")
InvTxt(7).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn5")
InvTxt(8).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerUsesSa lesTax")
InvTxt(9).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Invoices") ,
"InvoiceID" )
InvTxt(10).Data Bindings.Add("T ext", C_DataSet1.Tabl es("Customers") ,
"CustomerServAf terMonths")
Dim result As String
Dim result2 As String
For num = 0 To 10
result += InvTxt(num).Tex t & " "
result2 += Iif(InvTxt(num) .DataBindings.I tem("Text").IsB inding, "Yes",
"No") & " "
Next
MsgBox(result) 'result = " "
MsgBox(result2) 'result2 = "No No No No No No No No No No No "
(result's purpose: determine if any text is in textboxes. Result: FALSE)
(result2's purpose: determine if binded. Result: FALSE)

[Cor]

Hi Han,

May I see your select statements and your fill also, when there are by
instance case differences, it won't work.

This seems to me OK.

Cor

Hi Han,

Send some code, I am looking in the dark.

And please paste it first in a notebook, copy it then and paste it than in this message because others it is mostly unreadable.

Cor

Right Underneath "Windows Form Designer Code" Region:
Dim InvTxt(10) As TextBox

After Clear, Fill Commands in Form_Load Sub:
Dim num As Integer
For num = 0 To 10
InvTxt(num) = New TextBox
Next
InvTxt(0).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAccoun tMoney")
InvTxt(1).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerNameLa st")
InvTxt(2).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerNameFi rst")
InvTxt(3).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn1")
InvTxt(4).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn2")
InvTxt(5).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn3")
InvTxt(6).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn4")
InvTxt(7).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerAddres sLn5")
InvTxt(8).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Customers") ,
"CustomerUsesSa lesTax")
InvTxt(9).DataB indings.Add("Te xt", C_DataSet1.Tabl es("Invoices") ,
"InvoiceID" )
InvTxt(10).Data Bindings.Add("T ext", C_DataSet1.Tabl es("Customers") ,
"CustomerServAf terMonths")
Dim result As String
Dim result2 As String
For num = 0 To 10
result += InvTxt(num).Tex t & " "
result2 += Iif(InvTxt(num) .DataBindings.I tem("Text").IsB inding, "Yes",
"No") & " "
Next
MsgBox(result) 'result = " "
MsgBox(result2) 'result2 = "No No No No No No No No No No No "
(result's purpose: determine if any text is in textboxes. Result: FALSE)
(result2's purpose: determine if binded. Result: FALSE)

[HAN(removethis)twister]

Cor wrote:

Hi Han,

May I see your select statements and your fill also, when there are by
instance case differences, it won't work.

This seems to me OK.

Cor

Hi Han,

Send some code, I am looking in the dark.

And please paste it first in a notebook, copy it then and paste it than
in
this message because others it is mostly unreadable.

Cor

Right Underneath "Windows Form Designer Code" Region:
Dim InvTxt(10) As TextBox

After Clear, Fill Commands in Form_Load Sub:
Dim num As Integer
For num = 0 To 10
InvTxt(num) = New TextBox
Next
InvTxt(0).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAcco untMoney")
InvTxt(1).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerName Last")
InvTxt(2).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerName First")
InvTxt(3).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAddr essLn1")
InvTxt(4).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAddr essLn2")
InvTxt(5).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAddr essLn3")
InvTxt(6).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAddr essLn4")
InvTxt(7).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerAddr essLn5")
InvTxt(8).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Customers") ,
"CustomerUses SalesTax")
InvTxt(9).Dat aBindings.Add(" Text", C_DataSet1.Tabl es("Invoices") ,
"InvoiceID" )
InvTxt(10).Da taBindings.Add( "Text", C_DataSet1.Tabl es("Customers") ,
"CustomerServ AfterMonths")
Dim result As String
Dim result2 As String
For num = 0 To 10
result += InvTxt(num).Tex t & " "
result2 += Iif(InvTxt(num) .DataBindings.I tem("Text").IsB inding, "Yes",
"No") & " "
Next
MsgBox(result ) 'result = " "
MsgBox(result 2) 'result2 = "No No No No No No No No No No No "
(result's purpose: determine if any text is in textboxes. Result: FALSE)
(result2's purpose: determine if binded. Result: FALSE)

Thanks for your time, a friend fixed my problem. (my Cable Internet was
down for the past couple of days, sorry It took so long to respond.)