主题：代码

Tables("生产计划").Current("编制人") = UserName
Dim dr2 As Row =Tables("生产计划").Current
Dim s As String =Format(dr2,"yyy年MM月")
Dim drs As List (of DataRow)=DataTables("领料明细").Select("领料单号='"&Tables("生产计划").Current("领料单号") &"'")
For Each dr As DataRow In drs
    Dim dr1 As DataRow =DataTables("计划耗用结存").find("发生年月= '" & s & " 'and 部门='"&dr2("部门")&"'and 物料编码= '"&dr("物料编码")&"'")
    If dr1("月末结余_投入数") < 0 Then
        MessageBox.show("累计发出材料数量超过耗用定额,请找领导审批","提示")
    End If
Next
Tables("材料领用").Current.Save()
DataTables("领料明细").Save()

这是我为一个窗口保存按钮编写的代码，执行这个代码有如下提示：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,材料出库,Button7,Click
详细错误信息：
无法将类型为“Foxtable.Row”的对象强制转换为类型“System.IConvertible”。
这是什么原因