Reply to thread

Message

<blockquote data-quote="isurutmv" data-source="post: 22377456" data-attributes="member: 470006">mcn vb.net walin karapu project ekak thiyenawa eke invoice eka print wena eke invoice eke items pennanna listbox ekak dala thiyenne palleha thiyenne eke code eka bn eeth invoice eke data pennanne nane bn mokakda awula&nbsp;&nbsp; [PHP]&nbsp;Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim conp As OleDbConnection&nbsp; &nbsp; &nbsp; &nbsp; Dim drp As OleDbDataReader&nbsp; &nbsp; &nbsp; &nbsp; Dim comp As OleDbCommand&nbsp; &nbsp; &nbsp; &nbsp; setupListView()&nbsp; &nbsp; &nbsp; &nbsp; conp = New OleDbConnection(&quot;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ECMIS.accdb;Persist Security Info=True;Jet OLEDB:Database Password=l3nyora&quot;)&nbsp; &nbsp; &nbsp; &nbsp; conp.Open()&nbsp; &nbsp; &nbsp; &nbsp; If lblQ.Text = &quot;YES&quot; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; comp = New OleDbCommand(&quot;select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblQuotes WHERE QuoteNumber LIKE'%&quot; &amp; txtSearch.Text &amp; &quot;%'&quot;, conp)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; drp = comp.ExecuteReader&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If drp.HasRows Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; While drp.Read&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim newitem As New ListViewItem&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.Text = drp.GetValue(0) '1 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(1)) '2 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(2)) '3 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(3)) '4 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(4)) '5 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(5)) '6 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(6)) '7 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(7)) '8 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ListView1.Items.Add(newitem)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End While&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; comp = New OleDbCommand(&quot;select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblSales WHERE SalesNumber LIKE'%&quot; &amp; txtSearch.Text &amp; &quot;%'&quot;, conp)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; drp = comp.ExecuteReader&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If drp.HasRows Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; While drp.Read&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim newitem As New ListViewItem&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.Text = drp.GetValue(0) '1 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(1)) '2 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(2)) '3 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(3)) '4 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(4)) '5 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(5)) '6 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(6)) '7 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; newitem.SubItems.Add(drp.GetValue(7)) '8 column&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ListView1.Items.Add(newitem)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End While&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Sub setupListView()&nbsp; &nbsp; &nbsp; &nbsp; 'aad columns to listview&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;ICode&quot;, 80, HorizontalAlignment.Left)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Item Name&quot;, 150, HorizontalAlignment.Left)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Item Description&quot;, 305, HorizontalAlignment.Left)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Price&quot;, 100, HorizontalAlignment.Right)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Vat&quot;, 80, HorizontalAlignment.Right)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Disc&quot;, 80, HorizontalAlignment.Right)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Qty&quot;, 60, HorizontalAlignment.Center)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Columns.Add(&quot;Total&quot;, 100, HorizontalAlignment.Right)&nbsp; &nbsp; &nbsp; &nbsp; ListView1.FullRowSelect = True&nbsp; &nbsp; &nbsp; &nbsp; ListView1.GridLines = True&nbsp; &nbsp; &nbsp; &nbsp; 'changing column header&nbsp; &nbsp; &nbsp; &nbsp; ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable&nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; End Sub&nbsp;&nbsp; [/PHP]</blockquote>

[QUOTE="isurutmv, post: 22377456, member: 470006"] [SIZE=5]mcn vb.net walin karapu project ekak thiyenawa eke invoice eka print wena eke invoice eke items pennanna listbox ekak dala thiyenne palleha thiyenne eke code eka bn eeth invoice eke data pennanne nane bn mokakda awula [PHP] Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim conp As OleDbConnection Dim drp As OleDbDataReader Dim comp As OleDbCommand setupListView() conp = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ECMIS.accdb;Persist Security Info=True;Jet OLEDB:Database Password=l3nyora") conp.Open() If lblQ.Text = "YES" Then comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblQuotes WHERE QuoteNumber LIKE'%" & txtSearch.Text & "%'", conp) drp = comp.ExecuteReader If drp.HasRows Then While drp.Read Dim newitem As New ListViewItem newitem.Text = drp.GetValue(0) '1 column newitem.SubItems.Add(drp.GetValue(1)) '2 column newitem.SubItems.Add(drp.GetValue(2)) '3 column newitem.SubItems.Add(drp.GetValue(3)) '4 column newitem.SubItems.Add(drp.GetValue(4)) '5 column newitem.SubItems.Add(drp.GetValue(5)) '6 column newitem.SubItems.Add(drp.GetValue(6)) '7 column newitem.SubItems.Add(drp.GetValue(7)) '8 column ListView1.Items.Add(newitem) End While End If Else comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblSales WHERE SalesNumber LIKE'%" & txtSearch.Text & "%'", conp) drp = comp.ExecuteReader If drp.HasRows Then While drp.Read Dim newitem As New ListViewItem newitem.Text = drp.GetValue(0) '1 column newitem.SubItems.Add(drp.GetValue(1)) '2 column newitem.SubItems.Add(drp.GetValue(2)) '3 column newitem.SubItems.Add(drp.GetValue(3)) '4 column newitem.SubItems.Add(drp.GetValue(4)) '5 column newitem.SubItems.Add(drp.GetValue(5)) '6 column newitem.SubItems.Add(drp.GetValue(6)) '7 column newitem.SubItems.Add(drp.GetValue(7)) '8 column ListView1.Items.Add(newitem) End While End If End If End Sub Sub setupListView() 'aad columns to listview ListView1.Columns.Add("ICode", 80, HorizontalAlignment.Left) ListView1.Columns.Add("Item Name", 150, HorizontalAlignment.Left) ListView1.Columns.Add("Item Description", 305, HorizontalAlignment.Left) ListView1.Columns.Add("Price", 100, HorizontalAlignment.Right) ListView1.Columns.Add("Vat", 80, HorizontalAlignment.Right) ListView1.Columns.Add("Disc", 80, HorizontalAlignment.Right) ListView1.Columns.Add("Qty", 60, HorizontalAlignment.Center) ListView1.Columns.Add("Total", 100, HorizontalAlignment.Right) ListView1.FullRowSelect = True ListView1.GridLines = True 'changing column header ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable End Sub [/PHP][/SIZE] [/QUOTE]

Verification

Asuwa dahayen wadi kalama keeyada?

Latest ads

Reply to thread