主题：[求助]没想到竟然能上网，请教个关于列自动填入的问题。

本以为这里不能上网，没想到竟然有移动WIFI，又能跟工程师们联系了，开心。

 

请教问题：如何将表B中EF列添加的数据自动添加到表A的EF列中？

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

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

 填充的条件是什么呢？AB表A列相同的就填充？

 楼主参考帮助文档。

哦，不是列名一样就填充，需要指定一下。

 呃……条件是什么？根据什么判断比较，然后填充？

表B的"一"“二”列分别对应表A的“A”“B”列，在窗口中对表B进行添加行操作，那么根据前述对应进行判断，有就修改，没有的话对表A进行添加行操作。

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

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

此主题相关图片如下：qq截图20130926195216.png

 如下例子。代码写在表属性->事件->datarowchanged

有点甜老师。

我使用的是：

 

If e.DataCol.Name = "产品编号" Then
    Dim nms() As String = {"品名","型号","规格","单价"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

 

这个代码，现在的问题是，如果有的列名并不一样，如何写代码?是否必须使用您例子里的那个方法？

 定义两个数组，代码类似

顶下