用VB做壹個表格顯示基金的買賣價格

'添加壹個控件listview，把妳需要顯示的內容保存到壹個記事本內，格式如上，復制下面的代碼：

listview我不太會用，僅供參考！！

Private Sub Form_Load()

'設置表格表頭

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "名稱", ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "價格1", ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "價格2", ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "價格3", ListView1.Width / 4

'填充數據

Dim x, y, z, i, fn

i = 0

fn = FreeFile

Open "c:\1.txt" For Input As fn'這裏的c:\1.txt是保存的數據資料

Do While Not EOF(fn)

Line Input #fn, x

y = Split(x, "|")

ListView1.ListItems.Add , , y(0)

ListView1.ListItems.Item(i + 1).SubItems(1) = y(1)

ListView1.ListItems.Item(i + 1).SubItems(2) = y(2)

ListView1.ListItems.Item(i + 1).SubItems(3) = y(3)

i = i + 1

Loop

Close fn

End Sub