0

我在第 15 行遇到错误，“预期语句结束”

我究竟做错了什么？即使是班级神童也说这应该有效，如下所示：

Public Class Form1

Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
    Dim states() As String = IO.File.ReadAllLines("USStates.txt")  ' makes array
    Dim data = From state In states
    Let line = state.Split(","c)
    Let Name = line(0)
    Let stateAb = line(1)
    Let area = CInt(line(2))
    Let census = CDbl(line(3))
    Order By Name Ascending
    ' query
    Select name,stateAb,area,census

*在这里出错***

    dgvOut.DataSource = data.ToList
    dgvOut.CurrentCell = Nothing
    dgvOut.Columns("Name").HeaderText = "State Name"
    dgvOut.Columns("ststeAb").HeaderText = "Abbreviation"
    dgvOut.Columns("area").HeaderText = "Area In Sq. Miles"
    dgvOut.Columns("census").HeaderText = "Population"
End Sub
End Class
4

2 回答 2

2

删除' query- 你不能在那里发表评论。

于 2013-11-05T18:09:10.687 回答
1

尝试使用续行：

Dim data = From state In states _
Let line = state.Split(","c) _
Let Name = line(0) _
Let stateAb = line(1) _
Let area = CInt(line(2)) _
Let census = CDbl(line(3)) _
Order By Name Ascending _
Select name, stateAb, area, census
于 2013-11-05T18:10:09.077 回答