主题：如何把vba语言转换成狐表编程语言

Dim xuhao As List(Of String) = DataTables("表A").GetValues("序号")

For Each s As String In xuhao

    Dim drs As List(Of DataRow) = DataTables("表A").Select("序号 = '" & s &"'","[_Identify]")

    If drs.Count < 16 Then Continue For

    Dim count = math.Ceiling(drs.Count / 15)

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

        drs(i)("分组") = drs(i)("组别") & (i Mod count + 1)

    Next

Next

vb.net和vba语法类似，只是操作表格的方式大不一样，重点看看帮助的编程基础和Foxtable编程这2章