关于数据转移

Henry D. Sy

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

zhylee

表一要是子窗体呢
请问！！

zhylee

好了我明白了，谢谢

Henry D. Sy

zhylee 发表于 2011-12-24 10:57
表一要是子窗体呢
请问！！

不是一样吗

zhylee

上述的我明白了
能不能在这基础上加上购买者信息

Henry D. Sy

描述不清

zhylee

就是当点到客户名子后

在操作就在表2中带有客户的名子

Henry D. Sy

表1中没有客户名字呀

zhylee

是呀
我就是想让表一和那个客户同时放在表2中
相当于一个客户买的明细

Henry D. Sy

zhylee 发表于 2011-12-24 14:58
就是当点到客户名子后

在操作就在表2中带有客户的名子

是不是这个意思？

1. Dim strName As String
   
2. Private Sub List16_Click()
   
3.     strName = Me.List16
   
4. End Sub
   
5. 
   
6. Private Sub 表一_DblClick(Cancel As Integer)
   
7.     Dim sSQL As String
   
8.     If strName = "" Then
   
9.         MsgBox "请先选择客户"
   
10.         Exit Sub
    
11.     End If
    
12. 
    
13.     If Not IsNull(Me.表一) Then
    
14.         sSQL = "INSERT INTO 表2 ( 购买者,名称, 数量,单价 )values('" & strName & _
    
15.                "','" & Me.表一.Column(1) & "'," & Me.表一.Column(2) & _
    
16.                "," & Me.表一.Column(3) & ")"
    
17.         CurrentDb.Execute sSQL
    
18.         '        sSQL = "DELETE FROM 表1 WHERE ID= " & Me.表一
    
19.         '        CurrentDb.Execute sSQL
    
20.         Me.表一.Requery
    
21.         Me.表2.Requery
    
22.         strName = ""
    
23.     End If
    
24. End Sub
    

复制代码