Office中国论坛/Access中国论坛

标题: 关于数据转移 [打印本页]
作者: zhylee    时间: 2011-12-23 17:43
标题: 关于数据转移
[attach]47784[/attach]
请问我怎么能做到点表1控件中的内容
这条内容能显示在表2中
同时此条在表一中消失
当表2中没有内容的时候不显示错误！！！
作者: Henry D. Sy    时间: 2011-12-23 18:24
又是高版本的
作者: zhylee    时间: 2011-12-23 21:08
{:soso_e113:}
作者: Henry D. Sy    时间: 2011-12-23 21:46
先追加后删除
前提表1记录要有可标识字段
作者: roych    时间: 2011-12-23 21:50
不更新附件版本，估计很快你就笑不出来了。毕竟2003版本还是主流。
作者: zhylee    时间: 2011-12-23 22:00
哦
我忘了用2003版本的了
作者: zhylee    时间: 2011-12-23 22:03
[attach]47793[/attach]2003版本
能帮我编辑一下吗
作者: Henry D. Sy    时间: 2011-12-23 22:21
  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    时间: 2011-12-23 22:43
我的怎么不行呀！
运行时错误“3061”
参数不足，期待是1
作者: Henry D. Sy    时间: 2011-12-24 09:06
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
复制代码
作者: Henry D. Sy    时间: 2011-12-24 09:06
zhylee 发表于 2011-12-23 22:43
我的怎么不行呀！
运行时错误“3061”
参数不足，期待是1

[attach]47795[/attach]
作者: zhylee    时间: 2011-12-24 10:57
表一要是子窗体呢
请问！！
作者: zhylee    时间: 2011-12-24 11:17
好了我明白了，谢谢
作者: Henry D. Sy    时间: 2011-12-24 11:20
zhylee 发表于 2011-12-24 10:57
表一要是子窗体呢
请问！！

不是一样吗
作者: zhylee    时间: 2011-12-24 14:00
[attach]47796[/attach]上述的我明白了
能不能在这基础上加上购买者信息
作者: Henry D. Sy    时间: 2011-12-24 14:14
描述不清
作者: zhylee    时间: 2011-12-24 14:58
就是当点到客户名子后

在操作就在表2中带有客户的名子
作者: Henry D. Sy    时间: 2011-12-24 15:11
表1中没有客户名字呀
作者: zhylee    时间: 2011-12-24 15:18
是呀
我就是想让表一和那个客户同时放在表2中
相当于一个客户买的明细
作者: Henry D. Sy    时间: 2011-12-24 15:40
zhylee 发表于 2011-12-24 14:58
就是当点到客户名子后

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

是不是这个意思？
  1. Dim strName As String
  2. Private Sub List16_Click()
  3.     strName = Me.List16
  4. End Sub

  6. Private Sub 表一_DblClick(Cancel As Integer)
  7.     Dim sSQL As String
  8.     If strName = "" Then
  9.         MsgBox "请先选择客户"
  10.         Exit Sub
  11.     End If

  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
复制代码
[attach]47797[/attach]

作者: zhylee    时间: 2011-12-24 16:27
厉害
我就是要的这种效果
谢谢了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3