主题：[求助]能做成这样的系统?

表A=维修管理 表B=维修数据(不可编辑)    维修管理里添加维修数据,添加一行数据维修完成后点击窗口按纽"已维修",这行内容就直接转移到维修数据表上.   在维修数据表上选者一行维修数据点击窗口按纽"返回"这行内容重新回到维修管理中.   能实现吗?

这个是基本功能

例如从表A复制当前行到表B：

 

   Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
   Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列

   Dim r1 As Row = Tables("表A").Current
   Dim r2 As Row = Tables("表B").AddNew
   For i As Integer = 0 To nma.Length - 1
        r1(nmb(i)) = r2(nma(i))
   Next

不明白你的意思，复制来复制去，代码都是一样

1、维修管理表: 在维修管理输入窗口录入数据，维修完成后选“已完成单选按键”

2、这行维修数据转移到“维修数据表”不是复制是转移

3、维修数据表：这行维修数据添错或重新进行维修选逻辑列中“返修按件”单元各，这行数据就转移到“维修管理表”

 

维修管理表：使用窗口录入

维修数据表：数据无法编辑只能点“返修”逻辑列单元各

 

复制过去后，删除原来的行，就是转移了。

 

  Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
   Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列

   Dim r1 As Row = Tables("表A").Current
   Dim r2 As Row = Tables("表B").AddNew
   For i As Integer = 0 To nma.Length - 1
        r2(nmb(i)) = r1(nma(i))
   Next

   r1.Delete()

 

提问的时候，最好做个简单的例子发上来，有具体的问题，别人才能给具体的答案。

 

如果两张表列名都一样的话可以用下面的代码