Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
Hello Experts,
 
I developed a program for displaying stock in DataGridView, I have Two Tables First Table Has some columns:-
 
Product_code, Product_name, Product_Price, Product_Quantity, Product_Vat.
 
and the Second Table has:-
 
Product_code, Product_name, Danger_Lavel.
 
Now, I want The DataGridView Rows Displaying Like Below Headers:-
 
P_Code    | Item_Name    | Rate  | Qty.   | Vat    |
 
above Columns from first table, now I calculate or show amount of first row (Rate * Qty.) in next columns and add to DataGridView.
 
After That I want To Display Second Table Data In DataGridView
 
that mean:- When Form load event I want To:-
Datagridview Load First Table Data and Then After That I Add Some New Columns To DataGridView
and after that I want to Display Second Table Data.
 
My Query is Here To Display Data...... and Full Code.
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblGrand.Text = ""
        DGridStoc.Columns.Clear()
        Dim commM55 As New OleDbCommand
        Dim datadM55 As New OleDbDataAdapter
        Dim Mdt55 As New DataTable
        Dim lev, amt, netamt As New DataGridViewTextBoxColumn
        If co.State = ConnectionState.Closed Then
            co.ConnectionString = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = D:\InventSys\InveoSystem.mdb;" & "Jet OLEDB:Database Password=abstractinnadmin"
            co.Open()
        End If
        commM55.CommandText = "Select s.PCode, s.ProductName, s.PQuantity, s.PRate, s.VatPer, c.LevelValue from TblSTOCKING s, TblCodeList c Where s.PCode = c.PCode"
        commM55.CommandType = CommandType.Text
        datadM55.SelectCommand = commM55
        datadM55.SelectCommand.Connection = co
        datadM55.Fill(Mdt55)
        DGridStoc.DataSource = Mdt55
        DGridStoc.DataBindings.Clear()
        DGridStoc.Columns(0).HeaderText = "Category"
        DGridStoc.Columns(0).Width = 140
        DGridStoc.Columns(1).HeaderText = "Product Name"
        DGridStoc.Columns(1).Width = 350
        DGridStoc.Columns(2).HeaderText = "QTY."
        DGridStoc.Columns(2).Width = 100
        DGridStoc.Columns(3).HeaderText = "Price"
        DGridStoc.Columns(3).Width = 100
        DGridStoc.Columns(4).HeaderText = "VAT %"
        DGridStoc.Columns(4).Width = 90
        DGridStoc.Columns(5).HeaderText = "DLavel"
        DGridStoc.Columns(5).Width = 100
        '------------------------------------------------
        'Columns Add In DGridStoc
        DGridStoc.Columns.Add(amt)              'Coloumn 6
        DGridStoc.Columns.Add(netamt)           'Coloumn 7
        DGridStoc.Columns.Add(lev)              'Coloumn 8
        amt.HeaderText = "Amount"
        amt.Name = "Amount1"
        amt.Width = 80
        netamt.HeaderText = "Total"
        netamt.Name = "NetAmt1"
        netamt.Width = 100
        lev.HeaderText = "Level"
        lev.Name = "Level1"
        lev.Width = 60
        Dim cl, q As Long
        Dim vatper, cal As Double
        vatper = 0.0
        cal = 0.0
        For cl = 0 To Mdt55.Rows.Count - 1
            q = Val(DGridStoc.Rows(cl).Cells(2).Value)
            vatper = Val(DGridStoc.Rows(cl).Cells(4).Value)
            DGridStoc.Rows(cl).Cells(6).Value = DGridStoc.Rows(cl).Cells(2).Value * DGridStoc.Rows(cl).Cells(3).Value
            cal = Val(vatper) * Val(DGridStoc.Rows(cl).Cells(6).Value) / 100
            cal = Val(cal) + Val(DGridStoc.Rows(cl).Cells(6).Value)
            DGridStoc.Rows(cl).Cells(7).Value = cal.ToString
            If q < 5 Then
                DGridStoc.Rows(cl).DefaultCellStyle.Font = New Font("Arial", 9, FontStyle.Bold)
                DGridStoc.Rows(cl).DefaultCellStyle.BackColor = Color.LightYellow
                DGridStoc.Rows(cl).DefaultCellStyle.ForeColor = Color.Red
                DGridStoc.Rows(cl).Cells(8).Value = "Danger".ToString
            Else
                DGridStoc.Rows(cl).Cells(8).Value = "OK".ToString
            End If
        Next
        Try
            Dim grd, grd1 As Double
            Dim cpltr As Long
            For cpltr = 0 To DGridStoc.RowCount - 1
                grd = grd + Val(DGridStoc.Rows(cpltr).Cells(7).Value)
            Next
            grd1 = grd + Val(lblGrand.Text)
            lblGrand.Text = grd1.ToString
        Catch ex As Exception
            MsgBox("Stock Not Found!", MsgBoxStyle.Information, "No Stock")
        End Try
'Right Align Numeric Columns
        DGridStoc.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DGridStoc.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DGridStoc.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DGridStoc.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DGridStoc.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        co.Close()
    End Sub
End Class  
This Code is Perfect But I Want To Display TblSTOCKING Only Starting Four Columns i.e.
PCode, ProductName, PQuantity, PRate from First Table and Then Add My own Dynamically Columns and then TblCodeList Table One Columns After Dynamically Columns Add......
 
Thanks In Advanced....................
Posted 26-Apr-13 5:42am
Edited 27-Apr-13 2:35am
v4

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

The DGV can only be bound to one source at a time.
 
The solution is to create a new collection or DataTable with all of the columns you want. You can do this either with a DataView object or any IEnumerable collection. For example, you could create a new view like this:
Dim orders As DataTable = dataSet.Tables("SalesOrderHeader")
 
Dim query = From order In orders.AsEnumerable()
    Where order.Field(Of Boolean)("OnlineOrderFlag") = True
    Order By order.Field(Of Decimal)("TotalDue")
    Select order
 
Dim view As DataView = query.AsDataView()
 
bindingSource1.DataSource = view
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 6,569
1 Sergey Alexandrovich Kryukov 6,168
2 DamithSL 5,228
3 Manas Bhardwaj 4,717
4 Maciej Los 4,150


Advertise | Privacy | Mobile
Web02 | 2.8.1411022.1 | Last Updated 27 Apr 2013
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100