主题：代码怎么写

79楼的文件传错了

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    Dim j As Integer = idx

    Dim z As Integer = j
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
            j = i
        Else
            Exit For
        End If
    Next
    For i As Integer = idx+1 To t.rows.count-1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1

            z = i
        Else
            Exit For
        End If
    Next
    If count < 5 Then
        Dim ndr = DataTables("表C").find("第一列 = '" & z & "-" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = z & "-" & e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

如果“表b”列数据较多，"表c"会出现如图的情形
此主题相关图片如下：qq图片20191226221108.jpg
，要实现标准的表格格式：比如不管“表b”有一百列还是十列，“表b”每列只有一个值转入"表c"，那么"表c"只有一行结果。请教版主大神能实现否？谢谢

请上传实例说明问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

按什么规则处理？使用文字详细说明一下。这2个表的数据如何关联？

"表c"的结果是“表b”触发事件代码导出的，不论是a触发事件代码还是b触发事件代码；也就是说咱们不论代码只讨论"表c"的结果和表格形式。"表c"的结果和表格形式能否实现83楼的要求？也是标准的文件格式，不会如示例一样有太多空格。

那就不说代码，请使用文字详细说明一下："表c"的结果和表格形式是怎么生成的，按什么规则生成的？

举个例（和示例不同）：表b有50列数据，每列10000行。以“第一列”为列；“第一列”第二行对比第一行，第三行对比第二行以此类推，结果相同"是"，不同“不”。结果相同"是"则导入

"表c"还有行号。第二行对比第一行相同“表c”显示结果第一列是行号2，第二列结果“是”。"表c"要形成标准格式应该如何解决？是“表b”的代码控制还是可以直接在“表c”加代码控制?

现在的“表c”结果太多空格很冗长