主题：[求助]升级为7.28后出错

'If e.DataCol.name = "录入日期" Then
'Dim d As Date = e.NewValue
'If d = Nothing Then
'e.DataRow("月份") = Nothing
'e.DataRow("年份") = Nothing
'Else
'e.DataRow("月份") = Format(d, "yyyyMM")
'e.DataRow("年份") = Format(d, "yyyy")
'End If
'End If
'If e.DataCol.Name = "录入日期" Then
'If e.DataRow.IsNull("录入日期") Then
'e.DataRow("入库单号") = Nothing
'Else
'Dim d As Date = e.DataRow("录入日期")
'Dim y As Integer = d.Year
'Dim m As Integer = d.Month
'Dim Days As Integer = Date.DaysInMonth(y,m)
'Dim fd As Date = New Date(y,m,1) '获得该月的第一天
'Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
'Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
'If e.DataRow("入库单号").StartsWith(bh) = False '如果编号的前6位不符
'Dim max As String
'Dim idx As Integer
'max = e.DataTable.sqlCompute("Max(入库单号)","录入日期 >= '" & fd & "' And 录入日期 <= '" & ld & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
'If max > "" Then '如果存在最大编号
'idx = CInt(max.Substring(7,6)) + 1 '获得最大编号的后三位顺序号,并加1
'Else
'idx = 1 '否则顺序号等于1
'End If
'e.DataRow("入库单号") = bh   &  "-"  &  Format(idx,"000000") & "BCPRK"
'End If
'End If
'End If
If e.DataCol.Name = "供应商名称" Then '
    Dim dr As DataRow
    dr = gysxxb.sqlFind("供应商名称 = '" & e.DataRow("供应商名称") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("供应商编号")= dr("供应商编号")
        e.DataRow("供应商首字符")= dr("供应商首字符")
        e.DataRow("税率")= dr("税率")
    Else
        e.DataRow("供应商编号")= Nothing
        e.DataRow("供应商首字符")= Nothing
        e.DataRow("税率")= Nothing
    End If
End If
Select Case e.DataCol.name
    Case  "入库类型"
        If Tables("半成品入库主表").current("入库类型") <> "采购入库"  OrElse  Tables("半成品入库主表").current("入库类型") <> "委外加工入库"  Then
            If e.newValue <> "采购入库" OrElse e.newValue <> "委外加工入库" Then
                For Each  pr As DataRow In  DataTables("应付款采购主表").Select("入库单号= '" & e.DataRow("入库单号") & "'")
                    If pr IsNot Nothing Then
                        e.DataRow("结算单号") = Nothing
                        pr.Delete()
                    End If
                Next
            End If
        End If
        If Tables("半成品入库主表").current("入库类型") = "采购入库"  OrElse Tables("半成品入库主表").current("入库类型") = "委外加工入库" Then
            Dim dr1 As DataRow = DataTables("应付款采购主表").sqlFind("入库单号= '" & e.DataRow("入库单号") & "'")
            If  dr1 Is Nothing   Then
                dr1 = DataTables("应付款采购主表").AddNew()
                dr1("入库单号") = e.DataRow("入库单号")
                dr1("供应商名称") = e.DataRow("供应商名称")
                dr1("供应商首字符") = e.DataRow("供应商首字符")
                dr1("仓库名称") = e.DataRow("仓库名称")
                dr1("录入日期") = e.DataRow("录入日期")
                dr1("年份") = e.DataRow("年份")
                dr1("月份") = e.DataRow("月份")
                dr1("录入人") = e.DataRow("录入人")
                dr1("入库类型") = e.DataRow("入库类型")
                dr1("税率") = e.DataRow("税率")
                e.DataRow("结算单号") = dr1("结算单号")
            Else
                dr1("入库类型") = e.DataRow("入库类型")
            End If
            dr1.Save
        End If
       
       
    Case  "供应商名称","仓库名称","录入日期","录入人","入库类型","税率","供应商首字符","结算单号","供应商编号","送货单号码","年份","月份"
        Dim  drs As  List(of  DataRow) = DataTables("应付款采购主表").SQLSelect("入库单号= '" & e.DataRow("入库单号") & "'")
        For Each  dr As  DataRow In drs
            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("仓库名称") = e.DataRow("仓库名称")
            dr("送货单号码") = e.DataRow("送货单号码")
           
        Next
        DataTables("应付款采购主表").SQLUpdate(drs)
End Select

DataTables("应付款采购主表").DeleteFor("入库单号= '" & e.OldValue & "'")