Can I do this on One line of code?

[gregory_may]

Seems silly I need two lines of code for this. Any way to do it in one?

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray

[Cor Ligthert [MVP]]

Gregory,

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray

No

Cor

[Phill W.]

"gregory_may" <None> wrote in message
news:O8*************@TK2MSFTNGP11.phx.gbl...

Seems silly I need two lines of code for this. > Dim DcArray() As
DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}
MyData.Tables(0).PrimaryKey = DcArray Any way to do it in one?

Haven't tried it, but does this work?

With MyData.Tables(0)
.PrimaryKey _
= New DataColumn() { .Columns("PhoneNumber") }
End With

HTH,
Phill W.

[Stephany Young]

MyData.Tables(0).PrimaryKey = New DataColumn()
{MyData.Tables(0).Columns("PhoneNumber")}
"gregory_may" <None> wrote in message
news:O8*************@TK2MSFTNGP11.phx.gbl...

Seems silly I need two lines of code for this. Any way to do it in one?

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray

[Armin Zingler]

"gregory_may" <None> schrieb

Seems silly I need two lines of code for this. Any way to do it in one?

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray

mydata.Tables(0).PrimaryKey = New DataColumn()
{mydata.Tables(0).Columns("PhoneNumber")}

Two lines only due to word wrapping in the posting. :) Usually I would write

mydata.Tables(0).PrimaryKey = New DataColumn() { _
mydata.Tables(0).Columns("PhoneNumber") _
}

but than you had three lines instead of one.... Therefore I would change it
to

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray
Ooops, that's what you already have.

;-)
Armin

[gregory_may]

Thanks guys, the New DataColumn() {} syntax is what I was after.

Thanks!

"Stephany Young" <noone@localhost> wrote in message
news:%2***************@TK2MSFTNGP12.phx.gbl...

MyData.Tables(0).PrimaryKey = New DataColumn()
{MyData.Tables(0).Columns("PhoneNumber")}
"gregory_may" <None> wrote in message
news:O8*************@TK2MSFTNGP11.phx.gbl...

Seems silly I need two lines of code for this. Any way to do it in one?

Dim DcArray() As DataColumn = {MyData.Tables(0).Columns("PhoneNumber")}

MyData.Tables(0).PrimaryKey = DcArray