帮忙看看代码那错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "是否" AndAlso e.DataRow("是否") = True Then
    Dim count As Integer = DataTables("表B").compute("count(_Identify)", "[第十列] = '" & e.DataRow("_Identify") & "' and 第一列 = #" & e.DataRow("第一列") & "# and 第二列 = '" & e.DataRow("第二列") & "' and 第三列 = '" & e.DataRow("第三列") & "'")
    If count > 0 Then
        msgbox("不能新增")
        Return
    End If
    Dim nma() As String = {"第十列","第一列","第二列","第三列","第四列","第五列","第六列"} 'A表数据来源列
    Dim nmb() As String = {"第十列","第一列","第二列","第三列","第四列","第五列","第六列"} 'B表数据接收列
    Dim dr As DataRow = DataTables("表B").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

主题：帮忙看看代码那错了？