【多个逻辑列】每一个逻辑列被选中后，就写入一条数据到库存表，但是多个逻辑列为什么就只有第一行可以写库存，而其他的就不能写呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "收货入库" Then
    Dim t1 As Table = e.Form.controls("table1").Table
    If e.DataRow("收货入库")=True Then
        t1.AllowEdit =True
        Dim cnt As Integer
        cnt = e.DataTable.Compute("Count([订货编号])", "订货编号 = '" & e.DataRow("订货编号") & "'")
        Dim cnt1 As Integer
        cnt1 = e.DataTable.Compute("Count([订货编号])", "订货编号 = '" & e.DataRow("订货编号") & "'and 收货入库=true")
        If cnt1=cnt Then
            t1.Current("收货入库") =True
            t1.AllowEdit =False
        Else
            t1.Current("收货入库") =False
            t1.AllowEdit =False
        End If
        Dim pr1 As DataRow
        pr1 = DataTables("订货记录_Table3").sqlFind("货名 = '" & e.DataRow("货名") & "' And 入库编号 = '" & e.DataRow("订货编号") & "'")
        If pr1 IsNot Nothing Then
            pr1("入库数量")= pr1("入库数量") + e.NewValue - e.OldValue
        Else
            Dim nr As Row = Tables("订货记录_Table3").AddNew()
            nr("货名")= e.DataRow("货名")
            nr("入库数量")= e.DataRow("数量")
            nr("入库日期")= e.DataRow("订货日期")
            nr("入库编号")= e.DataRow("订货编号")
        End If
        DataTables.Save
    Else
        t1.AllowEdit =True
        If t1.Current IsNot Nothing Then
            t1.Current("收货入库")=False
        End If
    End If
End If

主题：【多个逻辑列】每一个逻辑列被选中后，就写入一条数据到库存表，但是多个逻辑列为什么就只有第一行可以写库存，而其他的就不能写呢？