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
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
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
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????????? - 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
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?
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
Sign in to post your reply or Sign up for a free account.
Similar topics
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 ==...
|
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...
|
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...
|
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...
|
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...
|
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...
|
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...
|
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...
|
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...
|
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...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
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...
|
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...
|
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...
|
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)...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
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
|
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...
|
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...
| |