有三张表，其中C表列最多，包含A、B表的一些列，有没有可能让A表写完一行数据后，将这一行推送给表B...... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有三张表，其中C表列最多，包含A、B表的一些列，有没有可能让A表写完一行数据后，将这一行推送给表B，同时在C表自动增加一行，并且将A表刚写完的那些数据加进去，然后B表写完数据后也将数据加到C表刚才自动增加的那一行中，求解？

我现在是做到这一步：A表写完一行数据后，将这一行推送给表B，同时在C表自动增加一行，并且将A表刚写完的那些数据加进去

等下，看看如果有问题我上例子

可以实现这样一个功能吗：假设表A将一行数据推送过去给表B，那么这行数据会优先放在表B的第一行上

这个 nr("第一列") = 123 是不是要用if判断呢

我这样写会提示出错，

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

'---将已确认的数据推送给财务

Dim dr As DataRow

Dim dr1 As DataRow

If e.DataCol.Name = "确认推送财务" Then

If e.NewValue=True Then

Dim nma() As String = {"贷款类型","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","还款类型","放款日期","放款额度","最新进度","折算产值金额"} 'A表数据来源列

Dim nmb() As String = {"贷款类型","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","还款类型","放款日期","放款额度","最新进度","折算产值金额"}'B表数据接收列

'dr1= DataTables("订单收支表").Find("客户名字 = '" & e.DataRow("客户名字") & "'")'已放款表的行

' If dr1 Is Nothing Then

' Dim dr As Row = Tables("订单收支表").InsertNew()

dr= DataTables("订单收支表").AddNew '已放款添加一行

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = e.DataRow(nma(i))

dr.move(0)

' Else

' For i As Integer = 0 To nma.Length - 1

' dr1(nmb(i)) = e.DataRow(nma(i))

' Next

' End If

End If

这里nr（“第几列”）我不确定这一列具体是什么内容

好的，可以了，谢谢，有些表死不支持移动行的吗，刚才有些表可以，有些不可以

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

主题：有三张表，其中C表列最多，包含A、B表的一些列，有没有可能让A表写完一行数据后，将这一行推送给表B......