สอบถามเรื่อง textfile ครับ คือ จะนับค่าซ้ำของข้อมูล และ รวมผลลัพธ์ของข้อมูลที่อยู่ใน textfile เพื่อมาทำ Report ครับ มีตัวอย่าง

	'*** TableRows (DataTable) ***'
	Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow
		
		'*** Column ***'
        dt.Columns.Add("CustomerID")
        dt.Columns.Add("Name")
        dt.Columns.Add("Email")
        dt.Columns.Add("CountryCode")
        dt.Columns.Add("Budget")
        dt.Columns.Add("Used")
		
		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C001"
        dr("Name") = "Win Weerachai"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "TH"
        dr("Budget") = "1000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C002"
        dr("Name") = "John Smith"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "EN"
        dr("Budget") = "2000000"
        dr("Used") = "800000"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C003"
        dr("Name") = "Jame Born"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "3000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)
		
		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C004"
        dr("Name") = "Chalee Angel"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "4000000"
        dr("Used") = "100000"
        dt.Rows.Add(dr)

		Return dt '*** Return DataTable ***'
	End Function