kode dibawah ini masih belum sempurna, nanti kita lanjutkan ya :)
Public Function MakeDataTable() As DataTable
Dim myTable As DataTable
myTable = New DataTable("dtbarang")
Dim idno As DataColumn = New DataColumn("idno")
idno.DataType = System.Type.GetType("System.Int32")
myTable.Columns.Add(idno)
Dim namabarang As DataColumn = New DataColumn("namabarang")
namabarang.DataType = System.Type.GetType("System.String")
myTable.Columns.Add(namabarang)
Dim banyak As DataColumn = New DataColumn("banyak")
banyak.DataType = System.Type.GetType("System.Int32")
myTable.Columns.Add(banyak)
Dim satuan As DataColumn = New DataColumn("satuan")
satuan.DataType = System.Type.GetType("System.Double")
myTable.Columns.Add(satuan)
Dim jumlah As DataColumn = New DataColumn("jumlah")
jumlah.DataType = System.Type.GetType("System.Double")
myTable.Columns.Add(jumlah)
MakeDataTable = myTable
End Function
sedangkan untuk membuat dataset serta memasukan datatable ke dalam gridview digunakan perintah berikut :
Dim dt As DataTable
dt = MakeDataTable()
Dim ds As DataSet
ds = New DataSet
ds.Tables.Add(dt)
dgbarang.DataSource = ds.Tables("dtbarang")
datatable diatas masih kosong, kita perlu memasukan nilai kedalam masing-masing datacolumn, dibawah ini cara untuk memasukan nilai tersebut :
Dim dr As DataRow
dr = dt.NewRow()
dr("idno") = CInt(idnota)
dgbarang.Columns(0).DataPropertyName = "idno"
dr("namabarang") = txtnamabarang.text
dgbarang.Columns(1).DataPropertyName = "namabarang"
dr("banyak") = CInt(txtbanyaknya.text)
dgbarang.Columns(2).DataPropertyName = "banyak"
dr("satuan") = txthargasatuan.text
dgbarang.Columns(3).DataPropertyName = "satuan"
Dim tjumlah As Double = (txtbanyaknya.text * txthargasatuan.text)
dr("jumlah") = tjumlah
dgbarang.Columns(4).DataPropertyName = "jumlah"
dt.Rows.Add(dr)
silahkan anda kreasikan sendiri, semoga bermanfaat :)
Thx infonya, akhirnya ketemu juga..... dah lama nyari nggak nemu2, thx ya :)
ReplyDelete