DataTables("产品月结").DataRows.Clear

Dim dt1 As DataTable = DataTables("产品入库")

Dim dt2 As DataTable = DataTables("产品出库")

Dim str As String = e.Form.Controls("月").Text

Dim d As Date = New Date(str.SubString(0, 4), str.SubString(4, 2), 1) \'获取本月的第1天

Dim ls As List(Of String) = dt1.GetValues("产品代码", "月 = \'" & str & "\'")

For Each s As String In dt2.GetValues("产品代码", "月 = \'" & str & "\'")

    If ls.Contains(s) = False Then

        ls.add(s)

    End If

    MessageBox.Show(1)

Next

For Each s As String In DataTables("产品上月结存").GetValues("产品代码", "月 = \'" & Format(d.AddMonths( - 1), "yyyyMM") & "\'")

    If ls.Contains(s) = False Then

        ls.add(s)

    End If

    MessageBox.Show(2)

Next

For Each cl As String In ls

    Dim dr As DataRow = DataTables("产品月结").AddNew

    dr("月") = str

    dr("产品代码") = cl

    Dim Filter As String = "产品代码 = \'" & cl & "\' And 月 = \'" & str & "\'"

    Dim dr1 As DataRow = DataTables("产品上月结存").Find("产品代码 = \'" & cl & "\' and 月 = \'" & Format(d.AddMonths( - 1), "yyyyMM") & "\'")

    \'Dim dr1 As DataRow = DataTables("产品上月结存").Find("产品代码 = \'" & cl & "\' and 月 = \'" & Format(d.AddMonths(0), "yyyyMM") & "\'")

    If dr1 IsNot Nothing Then

        dr("上月结存") = dr1("上月结存")

        MessageBox.Show(3)

    End If

    dr("本月入仓") = dt1.Compute("Sum(入仓数量)", Filter)

    dr("本月出仓") = dt2.Compute("Sum(出仓数量)", Filter)

dr("本月结存") = dr("上月结存") + dr("本月入仓") - dr("本月出仓")

MessageBox.Show(4)

Next

MessageBox.Show(5)

出现了：1、2、3、4、3后出现了有如下提示：

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2022.7.3.1

错误所在事件：窗口,产品月结,Button1,Click

详细错误信息：

Conversion from string "" to type \'Double\' is not valid.

Input string was not in a correct format.