用SQL Server 作的后台数据库。 语句如下： Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button8.Click If Len(Trim(Me.txtSxh.Text)) > 0 Then Dim NewRows As Data.DataRow NewRows = mDS.Tables("gy_extendprocess").NewRow mDS.Tables("gy_extendprocess").Rows.Add(NewRows) mDS.GetChanges(DataRowState.Added) mAdp.Update(mDS.Tables("gy_extendprocess"))

mDS.Tables("gy_extendprocess").AcceptChanges() mCyManager.EndCurrentEdit() End If End Sub

请各位给予指正及帮助，谢谢！