Office中国论坛/Access中国论坛

标题: 点击这个子窗体列表的每一条记录，另一个窗体显示该条记录的明细 [打印本页]

作者: zhylee 时间: 2011-12-6 11:24
标题: 点击这个子窗体列表的每一条记录，另一个窗体显示该条记录的明细
本帖最后由 zhylee 于 2011-12-6 15:44 编辑

[attach]47550[/attach][attach]47546[/attach]主窗体设置了查询条件，点击按钮，一个子窗体显示查询结果列表。
2点击这个列表的每一条记录，另一个窗体显示

该条记录的明细，并且可以对明细进行修改保存，顺便把总价计算下
请问怎么编写-------里面有2003版本的

作者: Henry D. Sy 时间: 2011-12-6 12:44
传例子

作者: zhylee 时间: 2011-12-6 13:46
本帖最后由 zhylee 于 2011-12-6 13:57 编辑

上传好了
各位大侠帮忙{:soso_e113:}

作者: Henry D. Sy 时间: 2011-12-6 14:48
能不能传2003格式的

作者: zhylee 时间: 2011-12-6 15:50
别沉了！！！！

作者: zhylee 时间: 2011-12-6 16:07
{:soso_e183:}{:soso_e183:}{:soso_e183:}

作者: Henry D. Sy 时间: 2011-12-6 16:41
描述不清，哪里有按钮和查询？

作者: zhylee 时间: 2011-12-7 08:42
就是点击窗体中的子窗体表格内容，相应的第二个子窗体显示这条订单的详细内容。

作者: loginwjd303 时间: 2011-12-7 09:57
一个查询罢了.

作者: Henry D. Sy 时间: 2011-12-7 11:11

Private Sub Form_Click()
Dim Criteria As String
Dim intCount As Integer
intCount = Me.订单编号
Criteria = "原始编号=" & intCount
Me.Parent.订单详情.Form.Filter = Criteria
Me.Parent.订单详情.Form.FilterOn = True
End Sub

复制代码

作者: Henry D. Sy 时间: 2011-12-7 11:20
老是传不上附件
[attach]47561[/attach]

作者: bbpst 时间: 2011-12-7 12:03
学习

作者: zhylee 时间: 2011-12-12 11:44
好像没有成功

作者: zhylee 时间: 2011-12-12 11:44
{:soso_e109:}

作者: zhylee 时间: 2011-12-12 11:55
好像没有完成想要的结果
单价订单中心表中项目在子表中显示此订单的详情

作者: Henry D. Sy 时间: 2011-12-12 16:12

zhylee 发表于 2011-12-12 11:55
好像没有完成想要的结果
单价订单中心表中项目在子表中显示此订单的详情

不会吧！
你点击记录看看

作者: 轻风 时间: 2011-12-12 16:48
要点击整条记录才行。
我觉得可以改到“成为当前”事件中，但在加载和移到新记录时会出错，可以加上一条错误处理。

Private Sub Form_Current()
On Error GoTo Err_Form_Current:
Dim Criteria As String
Dim intCount As Integer
intCount = Me.订单编号
Criteria = "原始编号=" & intCount
Me.Parent.订单详情.Form.Filter = Criteria
Me.Parent.订单详情.Form.FilterOn = True
Err_Form_Current:
Exit Sub
End Sub

复制代码

作者: pq318 时间: 2011-12-13 08:41
确实可以用查询

作者: zhylee 时间: 2011-12-13 11:41
难道我的电脑有问题??

作者: zhylee 时间: 2011-12-13 11:42
我双击订单中心的第二条
相应的详情子窗体没有变化

作者: Henry D. Sy 时间: 2011-12-13 14:40

zhylee 发表于 2011-12-13 11:42
我双击订单中心的第二条
相应的详情子窗体没有变化

要点击记录，而不是记录中的某个控件！！！

作者: zhylee 时间: 2011-12-14 13:32
要是做成点击记录中的控件呢？？
谢谢

作者: zhylee 时间: 2011-12-14 16:33
谢谢我想要的就是这个
要是能单击整行都能实现这样的效果
那就完美了！！

作者: zhylee 时间: 2011-12-14 17:41
谢谢我想要的就是这个
要是能单击整行都能实现这样的效果
那就完美了！！

作者: wgh3g 时间: 2011-12-14 18:27
小小改动，看看无订单编号时效果

作者: Henry D. Sy 时间: 2011-12-14 21:31
何需这么复杂？

Private Sub Form_Current()
On Error Resume Next
Dim Criteria As String
Dim intCount As Integer
intCount = Me.订单编号
Criteria = "原始编号=" & intCount
Me.Parent.订单详情.Form.Filter = Criteria
Me.Parent.订单详情.Form.FilterOn = True
End Sub

复制代码

作者: wgh3g 时间: 2011-12-14 21:53
谢谢指导

作者: zhylee 时间: 2011-12-15 16:34
再请问如果订单编号不是数字是文本呢！！

作者: Henry D. Sy 时间: 2011-12-15 18:09

zhylee 发表于 2011-12-15 16:34
再请问如果订单编号不是数字是文本呢！！

Criteria = "原始编号="" & intCount &"'"

作者: Henry D. Sy 时间: 2011-12-15 18:11

zhylee 发表于 2011-12-15 16:34
再请问如果订单编号不是数字是文本呢！！

Private Sub Form_Current()
On Error Resume Next
Dim Criteria As String
Dim strCount As String
strCount = Me.订单编号
Criteria = "原始编号='" & intCount &"'"
Me.Parent.订单详情.Form.Filter = Criteria
Me.Parent.订单详情.Form.FilterOn = True
End Sub

复制代码

作者: zhylee 时间: 2011-12-16 09:15
[attach]47685[/attach] 我这点不明白
表格中没有这项呀
你这个控件也没有表达式
！！

作者: Henry D. Sy 时间: 2011-12-16 10:12

zhylee 发表于 2011-12-16 09:15
我这点不明白
表格中没有这项呀
你这个控件也没有表达式

什么意思？

作者: zhylee 时间: 2011-12-16 10:32
就是说我不清除您这个金额从何而来
怎么能计算出结果的
我看这个控件里没有“=数量*单价”的表达式

作者: Henry D. Sy 时间: 2011-12-16 10:33
合计是引用子窗体上的
你看看子窗体页脚上的控件！

作者: Henry D. Sy 时间: 2011-12-16 10:37

Henry D. Sy 发表于 2011-12-16 10:33
合计是引用子窗体上的
你看看子窗体页脚上的控件！

[attach]47688[/attach]

作者: 轻风 时间: 2011-12-16 10:42
我17楼不是已经回答了，楼主咋还在纠结。

作者: zhylee 时间: 2011-12-16 11:47
可能我的表述不是很清楚，我说的是子窗体中的金额怎么产生的
我要是把金额用[attach]47689[/attach]的方法就不行了
给各位带来麻烦真不好意思{:soso_e183:}

作者: Henry D. Sy 时间: 2011-12-16 13:29
可能我的表述不是很清楚
不是不清楚，是非常不清楚，一会儿点击记录，一会儿又单击控件。
金额不是在记录源里有现成的吗？？

作者: zhylee 时间: 2011-12-16 13:57
[attach]47694[/attach]我这样的编号就不能完成这项任务

作者: Henry D. Sy 时间: 2011-12-16 14:18
你老是发图，搞不懂你什么意思，11楼不是帮你做好统计了吗

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)