listview 转到 dataset 时出错了,大家帮我看看呀

[htpower]

未处理的“System.ArgumentException”类型的异常出现在 System.Data.dll 中。

其他信息: 无法将类型为“交费流水Row”的对象强制转换为类型“System.IConvertible”。不能在 流水号 列中存储 <EchoWater2.用户交费明细+交费流水Row>。所需类型是 Int32。

Dim dr = ds.Tables("交费流水").NewRow()
            dr("流水号") = ListView2.Items(m).SubItems(0).Text
            dr("水费时间") = ListView2.Items(m).SubItems(1).Text
            dr("上期底度") = ListView2.Items(m).SubItems(3).Text
            dr("本期底度") = ListView2.Items(m).SubItems(5).Text
            dr("计费数") = ListView2.Items(m).SubItems(6).Text
            dr("附加费") = ListView2.Items(m).SubItems(8).Text
            dr("滞纳金") = ListView2.Items(m).SubItems(10).Text
            dr("总金额") = ListView2.Items(m).SubItems(11).Text
            dr("缴费时间") = ListView2.Items(m).SubItems(13).Text
            dr("用户编号") = TextBox1.Text.Trim
            dr("用户名称") = Label3.Text.Trim '  地址:
            dr("用户地址") = Label5.Text.Trim '  地址:
            ds.Tables("交费流水").Rows.Add(dr) '''错误提示在这一行~~~~

Private Sub InitClass()
            Me.column流水号 = New Global.System.Data.DataColumn("流水号", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column流水号)
            Me.column水费时间 = New Global.System.Data.DataColumn("水费时间", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column水费时间)
            Me.column上期底度 = New Global.System.Data.DataColumn("上期底度", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column上期底度)
            Me.column本期底度 = New Global.System.Data.DataColumn("本期底度", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column本期底度)
            Me.column计费数 = New Global.System.Data.DataColumn("计费数", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column计费数)
            Me.column附加费 = New Global.System.Data.DataColumn("附加费", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column附加费)
            Me.column滞纳金 = New Global.System.Data.DataColumn("滞纳金", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column滞纳金)
            Me.column总金额 = New Global.System.Data.DataColumn("总金额", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column总金额)
            Me.column缴费时间 = New Global.System.Data.DataColumn("缴费时间", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column缴费时间)
            Me.column用户编号 = New Global.System.Data.DataColumn("用户编号", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column用户编号)
            Me.column用户名称 = New Global.System.Data.DataColumn("用户名称", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column用户名称)
            Me.column用户地址 = New Global.System.Data.DataColumn("用户地址", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column用户地址)
        End Sub

为什么呀?为什么呀?大家帮帮我~

[htpower]

[htpower]

流水号类型为 int32

[htpower]

Dim ds As New 用户交费明细
        Dim k As Integer = ListView2.Items.Count
        For m As Integer = 0 To k - 1
            Dim dr = ds.Tables("交费流水").NewRow()
            dr("流水号") = ListView2.Items(m).SubItems(0).Text
            dr("水费时间") = ListView2.Items(m).SubItems(1).Text
            dr("上期底度") = ListView2.Items(m).SubItems(3).Text
            dr("本期底度") = ListView2.Items(m).SubItems(5).Text
            dr("计费数") = ListView2.Items(m).SubItems(6).Text
            dr("附加费") = ListView2.Items(m).SubItems(8).Text
            dr("滞纳金") = ListView2.Items(m).SubItems(10).Text
            dr("总金额") = ListView2.Items(m).SubItems(11).Text
            dr("缴费时间") = ListView2.Items(m).SubItems(13).Text
            dr("用户编号") = TextBox1.Text.Trim
            dr("用户名称") = Label3.Text.Trim '  地址:
            dr("用户地址") = Label5.Text.Trim '  地址:
            ds.Tables("交费流水").Rows.Add(dr)
        Next