___________________________________
If dg.RowCount > 1 Then
Dim totalharga As Integer = 0
For index As Integer = 0 To dg.RowCount - 1
totalharga += Convert.ToInt32(dg.Rows(index).Cells(5).Value)
Next
txtGrandtotal.Text = Val(txtGrandtotal.Text) + totalharga
End If
_______________________________________________________________
Semoga bermanfaat.
http://pangeran-it.blogspot.com/
Langganan:
Posting Komentar (Atom)
Find us on Facebook
Find us on Google Plus
Labels
Contributors
Popular Posts
-
Gelombang Gelombang adalah getaran yang merambat, baik melalui medium maupun tanpa medium. Jenis-Jenis Gelombang 1. Jen...
-
SEJARAH LINUX DEBIAN Debian pertama kali diperkenalkan oleh Ian Murdock, seorang mahasiswa dari Universitas Purdue, Amerika Serikat...
-
asal mula Facebook berawal ketika Mark Zuckerberg (saat itu mahasiswa semester II Harvard University) membuat sebuah situs kontak jodoh untu...
-
Stencyl sangat sendiri studio game portabel Anda yang menawarkan toolset indah dan dukungan platform yang luas. Itu salah satu dari me...
-
Sejarah Singkat Kisah Asus bermula pada tahun 1989, ketika empat insinyur komputer, yaitu Wayne Hsieh, Ted Hsu, MT Liao dan TH Tu...
-
Macam-Macam Topologi Jaringan Komputer 1. Topologi Ring Pada topologi ring setiap komputer di hubungkan dengan komputer lain dan seter...
-
Sejarah internet yang dulu terjadi, kini telah menjadi sebuah fenomena yang sangat mempengaruhi dunia. Dimana-mana ada saja orang yang me...
-
Jenis-jenis Software atau Perangkat Lunak Software atau perangkat lunak komputer berdasarkan distribusinya dibedakan menjadi beberapa...
-
___________________________________ If dg.RowCount > 1 Then Dim totalharga As Integer = 0 For index As Integer =...
-
Cecilia Hae-Jin Lee - Pendiri LINE Terkenal dengan nama: Lee Hae-Jin Lahir : 14 November 1970, Seoul, Korea Selatan Warga...
Tidak ada komentar:
Posting Komentar