关于数据转移

zhylee

请问我怎么能做到点表1控件中的内容
这条内容能显示在表2中
同时此条在表一中消失
当表2中没有内容的时候不显示错误！！！

Henry D. Sy

又是高版本的

zhylee

{:soso_e113:}

Henry D. Sy

先追加后删除
前提表1记录要有可标识字段

roych

不更新附件版本，估计很快你就笑不出来了。毕竟2003版本还是主流。

zhylee

哦
我忘了用2003版本的了

zhylee

2003版本
能帮我编辑一下吗

Henry D. Sy

1. Private Sub 表一_DblClick(Cancel As Integer)
   
2.     Dim sSQL As String
   
3.     sSQL = "INSERT INTO 表2 ( 名称, 数量, 单价 ) SELECT 名称, 数量,单价 FROM 表1 where id = " & _
   
4.            Me.表一.Column(0)
   
5.     CurrentDb.Execute sSQL
   
6.     sSQL = "DELETE FROM 表1 WHERE ID= " & Me.表一.Column(0)
   
7.     CurrentDb.Execute sSQL
   
8.     Me.表一.Requery
   
9.     Me.表2.Requery
   
10. End Sub

复制代码

zhylee

我的怎么不行呀！
运行时错误“3061”
参数不足，期待是1

Henry D. Sy

zhylee 发表于 2011-12-23 22:43
我的怎么不行呀！
运行时错误“3061”
参数不足，期待是1

1. Private Sub 表一_DblClick(Cancel As Integer)
   
2.     Dim sSQL As String
   
3.     If Not IsNull(Me.表一) Then
   
4.         sSQL = "INSERT INTO 表2 SELECT 名称, 数量,单价 FROM 表1 where id = " & _
   
5.                Me.表一
   
6.         CurrentDb.Execute sSQL
   
7.         sSQL = "DELETE FROM 表1 WHERE ID= " & Me.表一
   
8.         CurrentDb.Execute sSQL
   
9.         Me.表一.Requery
   
10.         Me.表2.Requery
    
11.     End If
    
12. End Sub

复制代码