7.2和7.9更新我的系统出来一个错误,7.2之前一直正常.这个表里的代码有以下:

If e.Datacol.Name  = "IO" Then
    If e.Datarow.IsNull("IO") Then
        e.Datarow("序号") = DBNull.Value
    Else
        e.Datarow("序号")= Format(e.Datatable.Compute("Count(IO)","[IO] = \'" & e.Datarow("IO") & "\' And [_identify] < 100" & e.Datarow("_Identify")))
    End If
End If

If e.Datacol.Name = "IO" Then
    If e.Datarow.IsNull("IO")  Then
        e.Datarow("辅料编号") = DBNull.Value
        e.Datarow("辅料名称") = DBNull.Value
        e.Datarow("颜色") = DBNull.Value
        e.Datarow("尺码") = DBNull.Value
        e.Datarow("单耗") = DBNull.Value
        e.Datarow("单价") = DBNull.Value
        e.Datarow("单位") = DBNull.Value
        e.Datarow("供应商编号") = DBNull.Value
        e.Datarow("供应商名称") = DBNull.Value
        e.Datarow("单耗") = DBNull.Value
        e.Datarow("订购项目") = DBNull.Value
        e.Datarow("实际订购数") = DBNull.Value
        e.Datarow("补订数量") = DBNull.Value
        e.Datarow("商标") = DBNull.Value
        e.Datarow("订购日期") = DBNull.Value
        e.Datarow("损耗") = DBNull.Value
        e.Datarow("订购单编号") = DBNull.Value
        e.Datarow("交货日期") = DBNull.Value
        e.Datarow("要求订购数") = DBNull.Value
        e.Datarow("进仓日期") = DBNull.Value
        e.Datarow("进仓单号") = DBNull.Value
        e.Datarow("送货数量") = DBNull.Value
        e.Datarow("计划订单数") = DBNull.Value
        e.Datarow("箱号") = DBNull.Value
        e.Datarow("提单号") = DBNull.Value
        e.Datarow("快邮号码") = DBNull.Value
        e.Datarow("发票号码") = DBNull.Value
        e.Datarow("是否结帐") = DBNull.Value
        e.Datarow("领用日期") = DBNull.Value
        e.Datarow("出库单号") = DBNull.Value
        e.Datarow("领用数量") = DBNull.Value
        e.Datarow("领用部门") = DBNull.Value
        e.Datarow("领用人") = DBNull.Value
        e.Datarow("门幅") = DBNull.Value
    End If
End If

If e.DataCol.Name = "辅料编号" Then
    If e.Datarow.IsNull("辅料编号")  Then
        e.Datarow("辅料名称") = DBNull.Value
        e.Datarow("规格") = DBNull.Value
        e.Datarow("颜色") = DBNull.Value
        e.Datarow("尺码") = DBNull.Value
        e.Datarow("单耗") = DBNull.Value
        e.Datarow("单价") = DBNull.Value
        e.Datarow("单位") = DBNull.Value
        e.Datarow("供应商编号") = DBNull.Value
        e.Datarow("供应商名称") = DBNull.Value
    Else
        Dim dr As DataRow
        dr = DataTables("价目表").Find("辅料编号 = \'" & e.DataRow("辅料编号") &"\'")
        If dr IsNot Nothing Then
            e.DataRow("辅料名称") = dr("辅料名称")
            e.DataRow("规格") = dr("规格")
            e.datarow("颜色")= dr("颜色")
            e.DataRow("尺码") = dr("尺码")
            e.datarow("单耗")= dr("单耗")
            e.DataRow("单价") = dr("单价")
            e.datarow("单位")= dr("单位")
            e.DataRow("供应商编号") = dr("客户编号")
            e.datarow("供应商名称")= dr("客户名称")
            e.datarow("门幅")= dr("门幅")
        End If
    End If
End If

If e.DataCol.Name = "订购日期" Then
    If e.Datarow.IsNull("订购日期")  Then
        e.Datarow("订购单编号") = DBNull.Value
        e.Datarow("计划订单数") = DBNull.Value
    Else
        e.DataRow("计划订单数") = DataTables("订单明细").Compute("Sum(TOTAL)","[IO] = \'" & e.DataRow("IO") & "\'")
    End If
End If

If e.DataCol.Name = "订购日期" Then
    If e.Datarow.IsNull("订购日期")  Then
        e.Datarow("订购单编号") = DBNull.Value
    Else
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        Dim dr As DataRow = e.DataRow
        cmd.C
        cmd.CommandText = "SELECT * From {批号申请} Where [IO] = \'" & dr("IO") & "\'And [客户编号] = \'" & e.dataRow("供应商编号") & "\'AND [申请日期]=\'" & e.datarow("订购日期") & "\'"
        dt = cmd.ExecuteReader
        If dt.DataRows.Count > 0 Then
            dr("订购单编号") = dt.DataRows(0)("订购单编号")
        End If
    End If
End If
If e.Datacol.Name = "IO" Then
    If e.Datarow.IsNull("IO")  Then
        e.Datarow("商标") = DBNull.Value
    Else
        Dim cmd As New SQLCommand
        Dim dt As Datatable
        Dim dr As Datarow = e.Datarow
        cmd.C
        cmd.CommandText = "SELECT * From {订单情况} Where [IO] = \'" & dr("IO") & "\'"
        dt = cmd.ExecuteReader
        If dt.DataRows.Count > 0 Then
            dr("商标") = dt.DataRows(0)("商标")
        End IF
    End IF
End IF

出来的错误如图:

上面就是全部的代码,没有什么特别的,我全部贴出了.

的确贴错了,应该是这一句:

  With Tables("辅料明细")
    If .Current Is Nothing Then
        Tables("集合输入_Table20").Filter= "False"
    Else
        Tables("集合输入_Table20").Filter = "商标 = \'" & Tables("辅料明细").Current("商标") & "\'"
    End If
End With

帮我看看!