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

呵呵，这个看不懂就得加紧学习帮助文件了！

看看这样解释对不对，你参考吧：：：

Select Case e.DataCol.Name   ‘这是说在表中你要编辑哪一列·····
    Case "类别"                       '如果是“类别”列····
        Dim drs As List(Of DataRow) = DataTables("表B").Select("[编号] = '" & e.DataRow("编号") & "'")

        ' 这表B查找与本表当前行的“编号”列相同的记录s（行s）·····
        If drs.Count > 0    '如果找到了－就是记录行超过了0行········
            For i As Integer = 0 To drs.Count-1    '遍历这些行············
                drs(i)("类别") = e.DataRow("类别") & Format(i+1,"00")   '给表B这些行的“类别”列赋值····
            Next
        Else          '如果没有找到····················
            For i As Integer = 1 To 30      '循环30次:::::::::::
                Dim dr As DataRow = DataTables("表B").AddNew()     '每循环一次在表B中增加一行····
                dr("编号") = e.DataRow("编号")     '将本表的本行的“编号”的值，赋值给表B的新增行的“编号”列中
                dr("类别") = e.DataRow("类别") & Format(i,"00")   ‘同上·····这个 i 是从1-30哦

            Next
        End If
End Select

                dr = DataTables("产品").Find("[编号] = '" & e.DataRow("编号") & "'")
                dr("类别") = e.DataRow("类别") & Format(i,"00")

因为上面的select也是找所有与本表当前行的编号相同的行（可能是多行），如果都没有找到，你这个也是找不到的。所以这个Else后面的代码就没有意义了。。。