以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能做成这样的系统?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29309)
--  作者：logi500
--  发布时间：2013/3/4 13:33:00
--  [求助]能做成这样的系统?
表A=维修管理 表B=维修数据(不可编辑)    维修管理里添加维修数据,添加一行数据维修完成后点击窗口按纽"已维修",这行内容就直接转移到维修数据表上.   在维修数据表上选者一行维修数据点击窗口按纽"返回"这行内容重新回到维修管理中.   能实现吗?
--  作者：blackzhu
--  发布时间：2013/3/4 13:57:00
--  
这个是基本功能
--  作者：狐狸爸爸
--  发布时间：2013/3/4 14:01:00
--  

例如从表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
--  作者：logi500
--  发布时间：2013/3/4 14:11:00
--  
以下是引用狐狸爸爸在2013-3-4 14:01:00的发言：

例如从表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

 
问题是"维修管理表"中数据到"维修数据表"后维修数据表里不存在次维修,就是维修完的不在维修管理任务里在维修数据表里,而且在窗口中用按键进行操作
--  作者：狐狸爸爸
--  发布时间：2013/3/4 14:18:00
--  

不明白你的意思，复制来复制去，代码都是一样
--  作者：logi500
--  发布时间：2013/3/4 14:59:00
--  
以下是引用狐狸爸爸在2013-3-4 14:18:00的发言：

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

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

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

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

 

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

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

 

[此贴子已经被作者于2013-3-4 15:02:29编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/3/4 15:02:00
--  

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

 

  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()

 

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

 
--  作者：nblwar
--  发布时间：2013/3/4 18:59:00
--  
如果两张表列名都一样的话可以用下面的代码
Dim r As Row = Tables("表B").AddNew

For Each col As Col In Tables("表A").Cols
    r(col.Name) = Tables("表A").Current(col.Name)
Next
Tables("表A").Current.Delete