一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格。

共有12048人关注过本帖树形打印复制链接主题：一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格。

huanghpp

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：137 威望：0 精华：0 注册：2012/1/19 9:27:00

一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格。 发帖心情

Post By：2012/1/19 10:02:00 [只看该作者]

一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格，代码如何写

请赐教！！！

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/1/19 10:12:00 [只看该作者]

方法很多，看具体情况。

编程是严谨的，泛泛而问，是无法回答的。

最好做一个简单的例子，传上来，然后说明你的问题。

huanghpp

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：137 威望：0 精华：0 注册：2012/1/19 9:27:00

Post By：2012/1/19 13:41:00 [只看该作者]

Select Case e.DataCol.Name

Case "C11"

Dim dr As DataRow = DataTables("o").Find(" G = " & "'" & e.DataRow("C4") & "'AndAlso B11 = " & "'" & e.DataRow("C114") & "'" )

If dr IsNot Nothing

e.DataRow("C11")= dr("O")

End If

End Select

我是要将当前表的e.DataRow("C11")复制到o表的dr("O")中，但上面的代码是反的，谢谢！！！

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/1/19 14:13:00 [只看该作者]

e.DataRow("C11")= dr("O")

改为：

dr("O") = e.DataRow("C11")

huanghpp

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：137 威望：0 精华：0 注册：2012/1/19 9:27:00

Post By：2012/1/19 17:30:00 [只看该作者]

感谢感谢！！！

下一主题 >> << 上一主题

主题：一单元格数据修改后，希望把修改的数据复制到另外一个表中的单元格。