473,322 Members | 1,352 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

Record insert

urgent!!!!!!! kindly please anyone help me.......
actualy i am newbe to vb.net

i need data to be inserted in to my table like this...

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
tamiz palace 12/1/2007 Mason 5 900

instead my following code produces result like this..

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
12/1/2007

only updating value of last row added.i don't know y data from first set of controls are not added?????????
__________________________________________________ _

Private Sub Badd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Badd.Click

If ind <> 35 Then
If temp >= 30 Then
Me.Panel2.Height = Me.Panel1.Height + 30
End If
Select Case ind
Case 0
Dim xy As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xy)

cbxcontrol1 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl1 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl2 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl3 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl4 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol1 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol1.Format = DateTimePickerFormat.Custom
DTPcontrol1.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol1)
Me.Panel2.Controls.Add(TextControl1)
Me.Panel2.Controls.Add(TextControl2)
Me.Panel2.Controls.Add(TextControl3)
Me.Panel2.Controls.Add(TextControl4)
Me.Panel2.Controls.Add(DTPcontrol1)

DTPcontrol1.Value = DateValue(CStr(DTPdop.Value))
TextControl4.Text = CBxsite.SelectedItem.ToString

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl2.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl3.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl4.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))



cbxcontrol1.TabIndex = tabi
tabi += 1
TextControl1.TabIndex = tabi
tabi += 1
TextControl2.TabIndex = tabi
tabi += 1
TextControl3.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol1.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol1.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl2.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl2.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl1.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


Case 1

Dim xyz As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xyz)

cbxcontrol12 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl12 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl22 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl32 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl42 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol12 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl22.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol12.Format = DateTimePickerFormat.Custom
DTPcontrol12.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol12)
Me.Panel2.Controls.Add(TextControl12)
Me.Panel2.Controls.Add(TextControl22)
Me.Panel2.Controls.Add(TextControl32)
Me.Panel2.Controls.Add(TextControl42)
Me.Panel2.Controls.Add(DTPcontrol12)

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl22.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl32.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl42.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))

DTPcontrol12.Value = DateValue(CStr(DTPdop.Value))
TextControl42.Text = CBxsite.SelectedItem.ToString

cbxcontrol12.TabIndex = tabi
tabi += 1
TextControl12.TabIndex = tabi
tabi += 1
TextControl22.TabIndex = tabi
tabi += 1
TextControl32.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol12.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol12.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl22.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl22.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl12.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


End Select

Else
MessageBox.Show("Reached maximum limit")
End If



End Sub
Dec 1 '07 #1
5 1565
urgent!!!!!!! kindly please anyone help me.......
actualy i am newbe to vb.net

i need to produce result like this.....

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
tamiz palace 12/1/2007 Mason 5 900



instead my following code produces o/p like this..

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
12/1/2007

only updating value of last row added.i don't know y data from first set of controls are not added?????????



Private Sub Badd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Badd.Click

If ind <> 35 Then
If temp >= 30 Then
Me.Panel2.Height = Me.Panel1.Height + 30
End If
Select Case ind
Case 0
Dim xy As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xy)

cbxcontrol1 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl1 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl2 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl3 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl4 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol1 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol1.Format = DateTimePickerFormat.Custom
DTPcontrol1.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol1)
Me.Panel2.Controls.Add(TextControl1)
Me.Panel2.Controls.Add(TextControl2)
Me.Panel2.Controls.Add(TextControl3)
Me.Panel2.Controls.Add(TextControl4)
Me.Panel2.Controls.Add(DTPcontrol1)

DTPcontrol1.Value = DateValue(CStr(DTPdop.Value))
TextControl4.Text = CBxsite.SelectedItem.ToString

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl2.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl3.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl4.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))



cbxcontrol1.TabIndex = tabi
tabi += 1
TextControl1.TabIndex = tabi
tabi += 1
TextControl2.TabIndex = tabi
tabi += 1
TextControl3.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol1.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol1.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl2.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl2.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl1.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


Case 1

Dim xyz As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xyz)

cbxcontrol12 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl12 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl22 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl32 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl42 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol12 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl22.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol12.Format = DateTimePickerFormat.Custom
DTPcontrol12.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol12)
Me.Panel2.Controls.Add(TextControl12)
Me.Panel2.Controls.Add(TextControl22)
Me.Panel2.Controls.Add(TextControl32)
Me.Panel2.Controls.Add(TextControl42)
Me.Panel2.Controls.Add(DTPcontrol12)

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl22.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl32.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl42.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))

DTPcontrol12.Value = DateValue(CStr(DTPdop.Value))
TextControl42.Text = CBxsite.SelectedItem.ToString

cbxcontrol12.TabIndex = tabi
tabi += 1
TextControl12.TabIndex = tabi
tabi += 1
TextControl22.TabIndex = tabi
tabi += 1
TextControl32.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol12.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol12.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl22.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl22.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl12.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


End Select

Else
MessageBox.Show("Reached maximum limit")
End If



End Sub
Dec 1 '07 #2
urgent!!!!!!! kindly please anyone help me.......
actualy i am newbe to vb.net

i need to produce result like this.....

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
tamiz palace 12/1/2007 Mason 5 900



instead my following code producing o/p like this..

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
12/1/2007

only updating value of last row added.i don't know y data from first set of controls are not added?????????



Private Sub Badd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Badd.Click

If ind <> 35 Then
If temp >= 30 Then
Me.Panel2.Height = Me.Panel1.Height + 30
End If
Select Case ind
Case 0
Dim xy As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xy)

cbxcontrol1 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl1 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl2 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl3 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl4 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol1 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol1.Format = DateTimePickerFormat.Custom
DTPcontrol1.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol1)
Me.Panel2.Controls.Add(TextControl1)
Me.Panel2.Controls.Add(TextControl2)
Me.Panel2.Controls.Add(TextControl3)
Me.Panel2.Controls.Add(TextControl4)
Me.Panel2.Controls.Add(DTPcontrol1)

DTPcontrol1.Value = DateValue(CStr(DTPdop.Value))
TextControl4.Text = CBxsite.SelectedItem.ToString

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl2.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl3.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl4.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))



cbxcontrol1.TabIndex = tabi
tabi += 1
TextControl1.TabIndex = tabi
tabi += 1
TextControl2.TabIndex = tabi
tabi += 1
TextControl3.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol1.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol1.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl2.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl2.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl1.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


Case 1

Dim xyz As DataRow = dtbsdtab.NewRow
dtbsdtab.Rows.Add(xyz)

cbxcontrol12 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
TextControl12 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
TextControl22 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
TextControl32 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
TextControl42 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
DTPcontrol12 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)

cbxcontrol12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl22.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TextControl32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

DTPcontrol12.Format = DateTimePickerFormat.Custom
DTPcontrol12.CustomFormat = "dd/MM/yyyy"

Me.Panel2.Controls.Add(cbxcontrol12)
Me.Panel2.Controls.Add(TextControl12)
Me.Panel2.Controls.Add(TextControl22)
Me.Panel2.Controls.Add(TextControl32)
Me.Panel2.Controls.Add(TextControl42)
Me.Panel2.Controls.Add(DTPcontrol12)

dtbsdtab.Columns("cdate").DefaultValue = Date.Today
cbxcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl22.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl32.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
TextControl42.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
DTPcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))

DTPcontrol12.Value = DateValue(CStr(DTPdop.Value))
TextControl42.Text = CBxsite.SelectedItem.ToString

cbxcontrol12.TabIndex = tabi
tabi += 1
TextControl12.TabIndex = tabi
tabi += 1
TextControl22.TabIndex = tabi
tabi += 1
TextControl32.TabIndex = tabi
tabi += 1

Badd.TabIndex = tabi
tabi += 1
Bsub.TabIndex = tabi
tabi += 1
Bsave.TabIndex = tabi
tabi += 1
Bexit.TabIndex = tabi
tabi += 1

AddHandler cbxcontrol12.GotFocus, AddressOf cbxcon_created
AddHandler cbxcontrol12.SelectedValueChanged, AddressOf cbxcon_Selindch
AddHandler TextControl22.LostFocus, AddressOf txtbox_lostfocuss
AddHandler TextControl22.TextChanged, AddressOf txtbox_lostfocuss
AddHandler TextControl12.TextChanged, AddressOf txtbox_lostfocuss

ind = ind + 1
indi = ind
temp += 30
temp1 += 1


End Select

Else
MessageBox.Show("Reached maximum limit")
End If

End Sub
Dec 1 '07 #3
urgent!!!!!!! kindly please anyone help me.......
actualy i am newbe to vb.net

i need to produce result like this.....

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
tamiz palace 12/1/2007 Mason 5 900



instead my following code producing o/p like this..

sitenm cdate wrknm nowrk totwg
tamiz palace 12/1/2007 Electrician 34 5100
null 12/1/2007 null null null

only updating value of last row added.i don't know y data from first set of controls are not added?????????

Expand|Select|Wrap|Line Numbers
  1. Private Sub Badd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Badd.Click
  2.  
  3.         If ind <> 35 Then
  4.             If temp >= 30 Then
  5.                 Me.Panel2.Height = Me.Panel1.Height + 30
  6.             End If
  7.             Select Case ind
  8.                 Case 0
  9.                     Dim xy As DataRow = dtbsdtab.NewRow
  10.                     dtbsdtab.Rows.Add(xy)
  11.  
  12.                     cbxcontrol1 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
  13.                     TextControl1 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
  14.                     TextControl2 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
  15.                     TextControl3 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
  16.                     TextControl4 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
  17.                     DTPcontrol1 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)
  18.  
  19.                     cbxcontrol1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  20.                     TextControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  21.                     TextControl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  22.                     TextControl3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  23.  
  24.                     DTPcontrol1.Format = DateTimePickerFormat.Custom
  25.                     DTPcontrol1.CustomFormat = "dd/MM/yyyy"
  26.  
  27.                     Me.Panel2.Controls.Add(cbxcontrol1)
  28.                     Me.Panel2.Controls.Add(TextControl1)
  29.                     Me.Panel2.Controls.Add(TextControl2)
  30.                     Me.Panel2.Controls.Add(TextControl3)
  31.                     Me.Panel2.Controls.Add(TextControl4)
  32.                     Me.Panel2.Controls.Add(DTPcontrol1)
  33.  
  34.                     DTPcontrol1.Value = DateValue(CStr(DTPdop.Value))
  35.                     TextControl4.Text = CBxsite.SelectedItem.ToString
  36.  
  37.                     dtbsdtab.Columns("cdate").DefaultValue = Date.Today
  38.                     cbxcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
  39.                     TextControl2.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
  40.                     TextControl3.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
  41.                     TextControl4.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
  42.                     DTPcontrol1.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))
  43.  
  44.  
  45.  
  46.                     cbxcontrol1.TabIndex = tabi
  47.                     tabi += 1
  48.                     TextControl1.TabIndex = tabi
  49.                     tabi += 1
  50.                     TextControl2.TabIndex = tabi
  51.                     tabi += 1
  52.                     TextControl3.TabIndex = tabi
  53.                     tabi += 1
  54.  
  55.                     Badd.TabIndex = tabi
  56.                     tabi += 1
  57.                     Bsub.TabIndex = tabi
  58.                     tabi += 1
  59.                     Bsave.TabIndex = tabi
  60.                     tabi += 1
  61.                     Bexit.TabIndex = tabi
  62.                     tabi += 1
  63.  
  64.                     AddHandler cbxcontrol1.GotFocus, AddressOf cbxcon_created
  65.                     AddHandler cbxcontrol1.SelectedValueChanged, AddressOf cbxcon_Selindch
  66.                     AddHandler TextControl2.LostFocus, AddressOf txtbox_lostfocuss
  67.                     AddHandler TextControl2.TextChanged, AddressOf txtbox_lostfocuss
  68.                     AddHandler TextControl1.TextChanged, AddressOf txtbox_lostfocuss
  69.  
  70.                     ind = ind + 1
  71.                     indi = ind
  72.                     temp += 30
  73.                     temp1 += 1
  74.  
  75.  
  76.                 Case 1
  77.  
  78.                     Dim xyz As DataRow = dtbsdtab.NewRow
  79.                     dtbsdtab.Rows.Add(xyz)
  80.  
  81.                     cbxcontrol12 = CType(CreateControls.MakeControl("ComboBox", 40, 175, controlLeft, controlTop + 3 + temp, "", "Cbx" & ind), ComboBox)
  82.                     TextControl12 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 220, controlTop + 3 + temp, "0", "TB1" & ind), TextBox)
  83.                     TextControl22 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 360, controlTop + 3 + temp, "0", "TB2" & ind), TextBox)
  84.                     TextControl32 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft + 490, controlTop + 3 + temp, "0", "TB3" & ind), TextBox)
  85.                     TextControl42 = CType(CreateControls.MakeControl("TextBox", 20, 60, controlLeft, controlTop + 3 + temp, "", "TB4" & ind), TextBox)
  86.                     DTPcontrol12 = CType(CreateControls.MakeControl("DateTimePicker", 20, 60, controlLeft + 220, controlTop + 3 + temp, CStr(DTPdop.Value), "DTP1" & ind), DateTimePicker)
  87.  
  88.                     cbxcontrol12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  89.                     TextControl12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  90.                     TextControl22.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  91.                     TextControl32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  92.  
  93.                     DTPcontrol12.Format = DateTimePickerFormat.Custom
  94.                     DTPcontrol12.CustomFormat = "dd/MM/yyyy"
  95.  
  96.                     Me.Panel2.Controls.Add(cbxcontrol12)
  97.                     Me.Panel2.Controls.Add(TextControl12)
  98.                     Me.Panel2.Controls.Add(TextControl22)
  99.                     Me.Panel2.Controls.Add(TextControl32)
  100.                     Me.Panel2.Controls.Add(TextControl42)
  101.                     Me.Panel2.Controls.Add(DTPcontrol12)
  102.  
  103.                     dtbsdtab.Columns("cdate").DefaultValue = Date.Today
  104.                     cbxcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "wrknm", True, DataSourceUpdateMode.OnPropertyChanged))
  105.                     TextControl22.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "nowrk", True, DataSourceUpdateMode.OnPropertyChanged))
  106.                     TextControl32.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "totwg", True, DataSourceUpdateMode.OnPropertyChanged))
  107.                     TextControl42.DataBindings.Add(New System.Windows.Forms.Binding("Text", dtbsdtab, "sitenm", True, DataSourceUpdateMode.OnPropertyChanged))
  108.                     DTPcontrol12.DataBindings.Add(New System.Windows.Forms.Binding("value", dtbsdtab, "cdate", True, DataSourceUpdateMode.OnPropertyChanged))
  109.  
  110.                     DTPcontrol12.Value = DateValue(CStr(DTPdop.Value))
  111.                     TextControl42.Text = CBxsite.SelectedItem.ToString
  112.  
  113.                     cbxcontrol12.TabIndex = tabi
  114.                     tabi += 1
  115.                     TextControl12.TabIndex = tabi
  116.                     tabi += 1
  117.                     TextControl22.TabIndex = tabi
  118.                     tabi += 1
  119.                     TextControl32.TabIndex = tabi
  120.                     tabi += 1
  121.  
  122.                     Badd.TabIndex = tabi
  123.                     tabi += 1
  124.                     Bsub.TabIndex = tabi
  125.                     tabi += 1
  126.                     Bsave.TabIndex = tabi
  127.                     tabi += 1
  128.                     Bexit.TabIndex = tabi
  129.                     tabi += 1
  130.  
  131.                     AddHandler cbxcontrol12.GotFocus, AddressOf cbxcon_created
  132.                     AddHandler cbxcontrol12.SelectedValueChanged, AddressOf cbxcon_Selindch
  133.                     AddHandler TextControl22.LostFocus, AddressOf txtbox_lostfocuss
  134.                     AddHandler TextControl22.TextChanged, AddressOf txtbox_lostfocuss
  135.                     AddHandler TextControl12.TextChanged, AddressOf txtbox_lostfocuss
  136.  
  137.                     ind = ind + 1
  138.                     indi = ind
  139.                     temp += 30
  140.                     temp1 += 1
  141.  
  142.  
  143.             End Select
  144.  
  145.         Else
  146.             MessageBox.Show("Reached maximum limit")
  147.         End If
  148.  
  149.     End Sub
Dec 1 '07 #4
CyberSoftHari
487 Expert 256MB
We can’t do homework for you. Describe your problem detail and post the code only in problematic area. (Better avoid giving description in topic.)

where are you inserting data?
Dec 1 '07 #5
We can’t do homework for you. Describe your problem detail and post the code only in problematic area. (Better avoid giving description in topic.)

where are you inserting data?
Actually i am dynamically adding controls,after controls are added only data that contained in last set of controls are in dataset.that is my problem
Dec 5 '07 #6

Sign in to post your reply or Sign up for a free account.

Similar topics

9
by: Mark | last post by:
I have a working PHP/MySQL application used for data entry. The data entry screen includes a "Save" button. The PHP code for this button looks like this: if (isset($_POST)) { if ($_POST ==...
10
by: salamol | last post by:
I has a strange question. My company is using a old system with Win NT 4.0 Server + MS SQL 7.0. The system is busy and handle a lot of SELECTs and INSERTs all the time. Sometimes, some...
5
by: Ilan Sebba | last post by:
When it comes to adding records in related tables, Access is really smart. But when I try to do the same using ADO, I am really stupid. Say I have two parent tables (eg Course, Student) and one...
7
by: Ilan Sebba | last post by:
I am trying to add a record using SQL. My problem is that the primary keys are foreign keys, and these foreign keys are autonumbers. I therefore do not know the primary keys of the record I am...
4
by: amywolfie | last post by:
I've been trying to do something for about 3 days – I get close, but not 100%. I am trying to: Open frmRevisionHistory from a button on frmFeeInput. If there is NO RELATED RECORD, then I...
8
by: Bri | last post by:
Greetings, I'm having a very strange problem in an AC97 MDB with ODBC Linked tables to SQL Server 7. The table has an Identity field and a Timestamp field. The problem is that when a new record...
4
by: CK | last post by:
Good Morning, I have a person table with personID. I have a personRate table with personID, rateID, and effectiveDate. I need to select fields from personRate, but I want the fields from the...
6
by: polocar | last post by:
Hi, I'm writing a program in Visual C# 2005 Professional Edition. This program connects to a SQL Server 2005 database called "Generations" (in which there is only one table, called...
9
by: Joshua.Buss | last post by:
I am trying to move a record from one linked table to another within access, but I'm a complete beginner to VBA and don't know exactly where to begin. I have an access file that has the two...
10
by: MLH | last post by:
Suppose, in a multi-user environment, you have append query SQL in a VBA procedure that looks like INSERT INTO MyTable... and the next line reads MyVar=DMax("","MyTable... You can never be...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.