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