如何获取sql数据中的数据 vb.net

Private Sub frmtongji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strsql As String
Dim data(3) As Int16
Dim db As DataBase = New DataBase
strsql = "select 是否竣工,count(合同编号) as 数量 from 竣工合同 group by 是否竣工"
Dim dv As DataView = db.RunDelOrInsSQL(strsql)
DataGridView1.DataSource = dv
'获取dv的数量的值，赋值给data     我用data(1)=dv.item(0)("数量")  老报错。
data(2) = 
data(3) =
AxMSChart1.ChartData = data

sql查询出来的表如下
   是否竣工    数量
1   进行中      2
2   暂停        3

就是想获取数量中的值

请帮忙，谢谢你们了。 --------------------编程问答-------------------- dv.Item(dv.CurrentRowIndex, 1) --------------------编程问答--------------------         data(1) = dv.Table.Rows(0)(0)
        data(2) = dv.Table.Rows(1)(1)
        data(3) = dv.Table.Rows(2)(2) --------------------编程问答--------------------

引用楼主 leida269942790 的回复:

Private Sub frmtongji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strsql As String
Dim data(3) As Int16
Dim db As DataBase = New DataBase
strsql = "sel……

1、
Dim data(3) As Int16 
定義的數組的下標是重0開始
data(0)=0
data(1) =0  
data(2) =0

--------------------编程问答-------------------- 2、
  data(0) = dv.Table.Rows(1).item(0)
  data(0) = dv.Table.Rows(1).item(1)
  data(0) = dv.Table.Rows(1).item(2) --------------------编程问答--------------------

引用 3 楼 tosp2012 的回复:

引用楼主 leida269942790 的回复:
Private Sub frmtongji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strsql As String
Dim data(3) As Int16
Dim db As DataBase = N……

tongyi --------------------编程问答-------------------- 索引值问题，VB.net数组索引从0开始。

补充：.NET技术 ,  VB.NET