如题

哈哈，问题解决了。感谢企鹅列兵！！
Dim dt As DataTable = DataGridView1.DataSource '将DataGridView1表中内容赋给DataTable
Dim dv As DataView = New DataView(dt) '得到DataTable一个视图
dv.RowFilter = "Np>0 and Wp>0" '通过DataTable一个视图查询得到想要的列：Np和Wp
Dim dtnew As DataTable = dv.ToTable("Prod", True, "Np", "Wp") '将通过DataTable一个视图查询得到的列赋给新的DataTable，问题解决。
For Each dr As DataRow In dtnew.Rows '测试结果
Dim Np As Single
Dim Wp As Single
Np = dr.Item(0)
Wp = dr.Item(1)
Next