后知后觉Wxt 后知后觉Wxt
不要迷恋哥,哥只是传说
关注数: 34 粉丝数: 172 发帖数: 2,473 关注贴吧数: 51
求助 Imports System.Data.OleDb Public Class Form1 Public mybind As BindingManagerBase Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 这行代码将数据加载到表“CjDataSet1.cj”中。您可以根据需要移动或删除它。 Me.CjTableAdapter.Fill(Me.CjDataSet1.cj) mybind = Me.BindingContext(Me.CjBindingSource) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click mybind.Position = 0 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click mybind.Position = mybind.Position - 1 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click mybind.Position = mybind.Position + 1 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click mybind.Position = mybind.Count - 1 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Validate() Me.CjBindingSource.EndEdit() Me.CjTableAdapter.Update(Me.CjDataSet1.cj) End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click mybind.AddNew() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click mybind.RemoveAt(mybind.Position) End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click mybind.CancelCurrentEdit() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Me.Validate() Me.CjBindingSource.EndEdit() Me.CjTableAdapter.Update(Me.CjDataSet1.cj) MsgBox("操作成功", vbOKOnly) End Sub Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub CjBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CjBindingSource.CurrentChanged End Sub End Class 为什么修改和添加会出问题?无法写入数据库
1 下一页