主题：[求助]大神帮忙，如何给自动更新加上这样的条件!

Select Case e.DataCol.Name

    Case "类别"

        Dim drs As List(Of DataRow) = DataTables("表B").Select("[编号] = '" & e.DataRow("编号") & "'")

        If drs.Count > 0

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

                drs(i)("类别") = e.DataRow("类别") & Format(i+1,"00")

            Next

        Else

            For i As Integer = 1 To 30

                Dim dr As DataRow = DataTables("表B").AddNew()

                dr("编号") = e.DataRow("编号")

                dr("类别") = e.DataRow("类别") & Format(i,"00")

            Next

        End If

End Select