Public Class Form3 Public Sub Update1(ByVal nrow As Double) Dim X As DataSet1.SensorOPRow X = DataSet1.SensorOP.NewRow X.Sensor_Output = nrow X.Record_Generated = System.DateTime.Now DataSet1.SensorOP.Rows.Add(X) SensorOPDataGridView.DataSource = Nothing SensorOPBindingSource.EndEdit() TableAdapterManager.UpdateAll(DataSet1) SensorOPDataGridView.DataSource = DataSet1.SensorOP SensorOPTableAdapter.Fill(DataSet1.SensorOP) End Sub ... 'In form1 Dim new1 As Double new1 = 34.56 Form3.Update1(new1)
Public Class Form3 Public Sub Add(ByVal newrw As Double) Dim X As DataSet1.SensorOPRow X = DataSet1.SensorOP.NewRow X.Sensor_Output = newrw X.Record_Generated = System.DateTime.Now DataSet1.SensorOP.AddSensorOPRow(X) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.TableAdapterManager.UpdateAll(Me.DataSet1) Me.SensorOPTableAdapter.Fill(Me.DataSet1.SensorOP) End Sub End Class
Private Sub form_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 'put code here to preform action End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)