一对多关联的数据库在VB.NET中如何新增记录
点击次数：91 次 发布日期：2008-11-06 08:06:05 作者：源代码网
源代码网推荐关联(orderid). 用VB.net建立一个窗体, 用于主表和明细表的数据录入及更新. 源代码网推荐在窗体上增加两个sqldataadapter,分别选择order和orderdetail表, 并生成数据集,在DATASET中建立关联(orderid) 源代码网推荐 源代码网推荐主表中:ORDERID,ORDERNAME 绑定在两个TEXTBOX文本框中,用于接受用户的输入,totalprice接受明细表中price 源代码网推荐的汇总值. 源代码网推荐明细表绑定到一个DATAGRID控件, datasource:dsorder; datamember:order.orderorderdetail建立的关联名称 源代码网推荐 源代码网推荐问题: 源代码网推荐 源代码网推荐 在主表中新增一个记录,用户录入orderid和ordername后,进入明细表的录入,用户录入productid, productname, price后,提示 源代码网推荐 “明细orderID列不允许空值，要更正该值吗？” 是什么原因? 源代码网推荐 用于连接主表的明细orderID如果输入跟主表一样的orderID时提示“ForeignKeyconstraint 要求在交叉表中存在子键值。要更正该值吗？” 源代码网推荐 源代码网推荐只有录入主表中的orderid和ordername后, 先更新主表数据源,才可以编辑更新明细表,这是为什么? 源代码网推荐 源代码网推荐请问,有没有其他更好的方法, 实现主表和明细表的新增记录同时更新呢? 软件开发网 www.mscto.com 源代码网推荐 源代码网推荐 谢谢关照！ 源代码网推荐 网友：方宇 源代码网推荐 源代码网推荐回复：http://qsltz@21cn.com 源代码网推荐http://qsl_tz@hotmail.com 源代码网推荐 源代码网推荐附部分源代码: 源代码网推荐Public Class fmOrders 源代码网推荐 Inherits System.Windows.Forms.Form 源代码网推荐 Dim WithEvents dtOrderDetails As New DataTable() 源代码网推荐 Dim BmOrders As BindingManagerBase 源代码网推荐 Dim BmOrderDetails As BindingManagerBase 源代码网推荐 Dim OrderDetailsHasChange As Boolean 源代码网推荐 Dim orderid As DataColumn 源代码网推荐dim ordername as datacolumn 源代码网推荐 Dim SubTotal As DataColumn 源代码网推荐 源代码网推荐 Private Sub bnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnFirst.Click 源代码网推荐 BmOrders.Position = 0 源代码网推荐 End Sub 源代码网推荐 Private Sub bnPrior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnPrior.Click 源代码网推荐 BmOrders.Position -= 1 源代码网推荐 End Sub 源代码网推荐 Private Sub bnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnNext.Click 源代码网推荐 BmOrders.Position = 1 源代码网推荐 End Sub 源代码网推荐 Private Sub bnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnLast.Click 源代码网推荐 BmOrders.Position = BmOrders.Count - 1 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 Private Sub bnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnAdd.Click 源代码网推荐 Try 源代码网推荐 BmOrders.EndCurrentEdit() 源代码网推荐 BmOrders.AddNew() 源代码网推荐 源代码网推荐 Catch err As System.SystemException 源代码网推荐 MessageBox.Show(err.ToString) 源代码网推荐 End Try 源代码网推荐 End Sub 源代码网推荐 Private Sub bnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnLoad.Click 源代码网推荐 FillData() 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 Private Sub bnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnUpdate.Click 源代码网推荐 Dim dsTestOrdersChange As DataSet 源代码网推荐 源代码网供稿. |
