[求助]老白，真心求老师指导！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

老白一个，真的不懂，求老师给个注释学习一下！

主题：[求助]老白，真心求老师指导！