Click here to Skip to main content
12,244,103 members (54,484 online)

Visual Basic

 
GeneralRe: Bitwise AND in an If/Else block Pin
treddie8-May-13 23:15
membertreddie8-May-13 23:15 
Questioncascading comboboxes vb.net windows forms Pin
Agontuk6-May-13 9:39
memberAgontuk6-May-13 9:39 
AnswerRe: cascading comboboxes vb.net windows forms Pin
ThePhantomUpvoter6-May-13 11:15
professionalThePhantomUpvoter6-May-13 11:15 
GeneralRe: cascading comboboxes vb.net windows forms Pin
Agontuk7-May-13 1:42
memberAgontuk7-May-13 1:42 
AnswerRe: cascading comboboxes vb.net windows forms Pin
Simon_Whale7-May-13 2:30
professionalSimon_Whale7-May-13 2:30 
AnswerRe: cascading comboboxes vb.net windows forms Pin
Dave Kreskowiak7-May-13 2:44
mvpDave Kreskowiak7-May-13 2:44 
GeneralRe: cascading comboboxes vb.net windows forms Pin
Agontuk9-May-13 9:53
memberAgontuk9-May-13 9:53 
QuestionHow to export the data from datagridview & all the data on the form1.vb make a report Pin
chandan H T5-May-13 2:24
memberchandan H T5-May-13 2:24 
Hi I'm using Visual studio 2010 i'm creating a invoice billing software. i can access the data from database to datagridview and calculate the sum of all products. now i want a print function so i need to make a report please help me out this

Thanks in advance.

Public Class Form1

Dim ID As String = Nothing
Dim pname As String = Nothing
Dim qty As UInteger = Nothing
Dim rate As Decimal = Nothing
Dim amt As Decimal = Nothing
Dim i As UInteger
Dim count As UInteger = Nothing
Dim totalAmt
Dim salesTax
Dim salesTaxRate

Private Sub AddProduct_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddProduct.Click
Dim MaxRows As UInteger = Nothing
Dim pid As String
Dim found As Boolean = False
Dim Sql As String
Dim count As UInteger = Nothing
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\IMPossible\Music\Project\BillingInvoice\BillingInvoice\InvoiceDatabase.accdb"
count = count + 1
con.Open()
Dim productAdapter As OleDb.OleDbDataAdapter = Nothing
Dim productDataSet As New DataSet
Dim validID As Boolean = True
Dim validQty As Boolean = True

Sql = "SELECT Product_ID,Product_Name,Product_Rate FROM Product_Data"


productAdapter = New OleDb.OleDbDataAdapter(Sql, con)
productAdapter.Fill(productDataSet, "Prod_Data")
If txtID.Text = "" Then
MsgBox("Enter a valid ProductID")
validID = False
End If
If txtqty.Text = "" Then
MsgBox("Enter a valid quantity")
validQty = False
End If
If validID And validQty Then
Try
qty = CInt(txtqty.Text)
ID = txtID.Text.ToUpper
Catch ex As Exception
MsgBox("qty can't be empty")
End Try
End If

MaxRows = productDataSet.Tables("Prod_Data").Rows.Count

' Get the data for the new line item.
If MaxRows = 0 Then
MsgBox("No Product Found")
Else
i = 0
Do Until i >= MaxRows
pid = productDataSet.Tables("Prod_Data").Rows(i).Item(0)

If ID = pid Then
found = True
pname = productDataSet.Tables("Prod_Data").Rows(i).Item(1)
rate = productDataSet.Tables("Prod_Data").Rows(i).Item(2)
txtpname.Text = pname
txtrate.Text = rate
amt = qty * rate
txtamt.Text = amt
DataGridView.Rows.Add(New String() {ID, pname, qty, rate, amt})
End If

i = i + 1

Loop
If found <> True Then
MsgBox("NO product found")
End If

End If



con.Close()

' Clear the total text boxes.
txtTotalAmt.Text = ""
txtTax.Text = ""
txtGrandTotal.Text = ""
txtTotalProd.Text = ""





Dim totalAmt As Integer
For Each r As DataGridViewRow In DataGridView.Rows
Dim prodAmount As Integer = CInt(r.Cells(4).Value)
totalAmt += prodAmount
Next
txtTotalProd.Text = totalAmt









' Calculate the sales tax.


salesTax = 12.5
txtTax.Text = salesTax

' Calculate the total prod
Dim totalQuantity As Integer
For Each r As DataGridViewRow In DataGridView.Rows
Dim prodQty As Integer = CInt(r.Cells(2).Value)
totalQuantity += prodQty
Next
txtTotalProd.Text = totalQuantity


' Calculate the invoice total.
Dim invoiceTotal = totalAmt + salesTax

' Display the invoice totals.
txtTotalAmt.Text = FormatCurrency(totalAmt)
txtTax.Text = FormatCurrency(salesTax)
txtGrandTotal.Text = FormatCurrency(invoiceTotal)
End Sub
End Class
AnswerRe: How to export the data from datagridview & all the data on the form1.vb make a report Pin
Eddy Vluggen5-May-13 9:49
mvpEddy Vluggen5-May-13 9:49 
QuestionTreeView Find not working Pin
treddie4-May-13 23:17
membertreddie4-May-13 23:17 
AnswerRe: TreeView Find not working Pin
Eddy Vluggen5-May-13 9:45
mvpEddy Vluggen5-May-13 9:45 
GeneralRe: TreeView Find not working Pin
treddie5-May-13 10:44
membertreddie5-May-13 10:44 
GeneralRe: TreeView Find not working Pin
Eddy Vluggen5-May-13 11:06
mvpEddy Vluggen5-May-13 11:06 
GeneralRe: TreeView Find not working Pin
treddie5-May-13 15:51
membertreddie5-May-13 15:51 
GeneralRe: TreeView Find not working Pin
jan212r5-May-13 21:55
memberjan212r5-May-13 21:55 
GeneralRe: TreeView Find not working Pin
treddie6-May-13 0:02
membertreddie6-May-13 0:02 
AnswerRe: TreeView Find not working Pin
Eddy Vluggen6-May-13 8:45
mvpEddy Vluggen6-May-13 8:45 
GeneralRe: TreeView Find not working Pin
treddie6-May-13 12:02
membertreddie6-May-13 12:02 
GeneralRe: TreeView Find not working Pin
Eddy Vluggen7-May-13 1:33
mvpEddy Vluggen7-May-13 1:33 
GeneralRe: TreeView Find not working Pin
treddie7-May-13 9:25
membertreddie7-May-13 9:25 
GeneralRe: TreeView Find not working Pin
Eddy Vluggen7-May-13 10:06
mvpEddy Vluggen7-May-13 10:06 
GeneralRe: TreeView Find not working Pin
treddie7-May-13 12:57
membertreddie7-May-13 12:57 
GeneralRe: TreeView Find not working Pin
Eddy Vluggen8-May-13 8:01
mvpEddy Vluggen8-May-13 8:01 
QuestionView the changes in the database by DATA SET... Pin
Vb Rnd4-May-13 7:23
memberVb Rnd4-May-13 7:23 
AnswerRe: View the changes in the database by DATA SET... Pin
Eddy Vluggen5-May-13 9:38
mvpEddy Vluggen5-May-13 9:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.160426.1 | Last Updated 30 Apr 2016
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid