有代码帮忙看一下哪里错了！
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim row As DataRow
Try
row = DataSet11.Tables("PuJiRuMen").NewRow
row.Item("CPU") = Me.pinpai.Text
row.Item("主板") = Me.pinpai1.Text
row.Item("内存") = Me.pinpai2.Text
row.Item("硬盘") = Me.pinpai3.Text
row.Item("显卡") = Me.pinpai4.Text
row.Item("声卡") = Me.pinpai5.Text
row.Item("机箱") = Me.pinpai6.Text
row.Item("软驱") = Me.pinpai7.Text
row.Item("光驱") = Me.pinpai8.Text
row.Item("显示器") = Me.pinpai9.Text
row.Item("鼠标") = Me.pinpai10.Text
row.Item("键盘") = Me.pinpai11.Text
row.Item("音箱") = Me.pinpai12.Text
DataSet11.Tables("PuJiRuMen").Rows.Add(row)
Me.puji.Update(DataSet11, "PuJiRuMen")
MessageBox.Show("保存成功", "提示", MessageBoxButtons.OK)
Beep()
Catch ex As Exception
MessageBox.Show("未知错误 无法完成", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Beep()
End Try
end sub
我前面是个ole控件连的access库
Private Sub frmZiZhu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
puji.Fill(DataSet11, "PuJiRuMen")
Dim cmd As New OleDb.OleDbCommandBuilder(puji)‘这句没有没好像无所谓吧！
end sub
上面的代执行到Me.puji.Update(DataSet11, "PuJiRuMen")
就出错了。怎么回事。前面都过的去啊。
问题点数：0、回复次数：6Top
1 楼DGCSLD（大过错）回复于 2004-04-01 17:08:47 得分 0
代码没有错，看看数据库里。表里的数据类型。问题该出在那里。Top
2 楼smoothwood（吾谁与归）回复于 2004-04-01 17:37:27 得分 0
你的puji定义InsertCommand没有？Top
3 楼LiJoe（有看贴的权利,没有回帖的义务）回复于 2004-04-01 20:00:09 得分 0
你把这个
MessageBox.Show("未知错误 无法完成", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Beep()
改成
MessageBox.Show(ex.message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Beep()
看它出错提示什么咯
Top
4 楼accpzj（希望在绝望中挣扎）回复于 2004-04-01 21:18:46 得分 0
提示什么错误？Top
5 楼accpzj（希望在绝望中挣扎）回复于 2004-04-01 21:18:54 得分 0
Dim cmd As New OleDb.OleDbCommandBuilder(puji)‘这句没有没好像无所谓吧！
这句是必须的Top
6 楼qzj（SoldierQ）回复于 2004-04-01 22:00:40 得分 0
你有没有对puji进行设置啊。如果你是用自己的代码定义了puji(应该是个OldDataAdapter)，那么必须对其InsertCommand等几个属性进行编码设置；你也可以用向导来进行自动设置。看看是不是没设置好？Top
