主题：求助窗口筛选中的一个小错误

Dim dt2 As DataTable = DataTables("部门损益总账")

Dim kms As List(of String())

kms = dt2.GetValues("所属单位|科目编号|科目名称|部门名称")

Dim min As Date = dt2.Compute("min(所属日期)")

Dim max As Date = dt2.Compute("max(所属日期)")

Dim sd As Date = min

Do While Format(sd, "yyyyMM") <= Format(max, "yyyyMM")

    For i As Integer = 0 To kms.Count - 1

        Dim s  = String.Format("所属单位='{0}' and 科目编号='{1}' and 科目名称='{2}' and 部门名称='{3}' and 所属日期=#{4}#",kms(i)(0),kms(i)(1),kms(i)(2),kms(i)(3),sd)

        

            If dt2.Find(s) Is Nothing Then

            msgbox(s)

            Dim ndr As DataRow = dt2.AddNew

            ndr("所属单位") = kms(i)(0)

            ndr("科目编号") = kms(i)(1)

            ndr("科目名称") = kms(i)(2)

            ndr("部门名称") = kms(i)(3)

            ndr("所属日期") = sd

        End If

    Next

    sd = sd.AddMonths(1)

Loop

Dim dt2 As DataTable = DataTables("部门损益总账")

Dim kms As List(of String())

kms = dt2.GetValues("所属单位|科目编号|科目名称|部门名称")

Dim min As Date = dt2.Compute("min(所属日期)")

Dim max As Date = dt2.Compute("max(所属日期)")

Dim sd As Date = min

Do While Format(sd, "yyyyMM") <= Format(max, "yyyyMM")

    For i As Integer = 0 To kms.Count - 1

        Dim s  = String.Format("所属单位='{0}' and 科目编号='{1}' and 科目名称='{2}' and 部门名称='{3}' and substring(convert(所属日期,'System.String'),1,7) = substring(convert(#{4}#,'System.String'),1,7)",kms(i)(0),kms(i)(1),kms(i)(2),kms(i)(3),sd)

        

            If dt2.Find(s) Is Nothing Then

            Dim ndr As DataRow = dt2.AddNew

            ndr("所属单位") = kms(i)(0)

            ndr("科目编号") = kms(i)(1)

            ndr("科目名称") = kms(i)(2)

            ndr("部门名称") = kms(i)(3)

            ndr("所属日期") = sd

        End If

    Next

    sd = sd.AddMonths(1)