|
Private Sub CreateOrder() Dim dr As DataRow dr = dsAllData.Tables("Orders").NewRow With dr .Item("DateOrdered") = Now .Item("CustomerID") = 1 .Item("ShipToAddress") = "123 Main" .Item("ShipToCity") = "Kansas City" .Item("ShipToState") = "MO" .Item("ShipToZip") = "12345" End With dsAllData.Tables("Orders").Rows.Add(dr) AddOrderDetail(dr.Item("ID"), 1, 1, 9.99) AddOrderDetail(dr.Item("ID"), 2, 2, 4.99) daOrders.Update(dsAllData.Tables("Orders")) daOrderDetail.Update(dsAllData.Tables("OrderDetail")) End Sub
Private Sub AddOrderDetail(ByVal OrderID As Integer, _ ByVal ProductID As Integer, ByVal Quantity As Integer, _ ByVal Price As Single)
Dim dr As DataRow dr = dsAllData.Tables("OrderDetail").NewRow With dr .Item("OrderID") = OrderID .Item("ProductID") = ProductID .Item("Quantity") = Quantity .Item("Price") = Price End With dsAllData.Tables("OrderDetail").Rows.Add(dr) End Sub |