Office中国论坛/Access中国论坛

标题: 更新:如何在主窗体中文体显示子窗体的数据((图)重传例子) [打印本页]

作者: luhao 时间: 2009-2-21 23:32
标题: 更新:如何在主窗体中文体显示子窗体的数据((图)重传例子)
本帖最后由 luhao 于 2009-3-3 20:04 编辑

提取子窗体当前记录分别到主窗体的TXT中显示。已上传不正确例子
请给予修正
请各位指教

作者: koutx 时间: 2009-2-22 09:11
在相应子窗体的成为当前事件中
Private Sub 相应子窗体名_Current()
me.parent.form.文本框名.value=me.产品名称
End Sub

作者: 紫风 时间: 2009-2-22 09:34
在子窗体的"成为当前"事件写下:
Private Sub Form_Current()
Me.子窗体名.Form.A1 = Me.TEXT_A1
Me.子窗体名.Form.A2 = Me.TEXT_A2
End Sub

作者: luhao 时间: 2009-2-22 12:06

在子窗体的"成为当前"事件写下:
Private Sub Form_Current()
Me.子窗体名.Form.A1 = Me.TEXT_A1
Me.子窗体名.Form.A2 = Me.TEXT_A2
End Sub
紫风发表于 2009-2-22 09:34

你的效果，与我的要求相反了。
我要子窗体的每列的数据显示在主窗体的文本框中

作者: luhao 时间: 2009-2-22 12:09
2# koutx
你的效果与我第一个的效果一样
我想要子窗体每列的数据在主窗体中反应出来。可有其它办法吗，我朋友说在DEPHL中可做到。用盾环可以做到。但在ACCESS不知怎做。。。

作者: koutx 时间: 2009-2-22 13:02
噢!楼主的主贴又重新编辑了，但我实在不明白你最终要达到什么结果？
如按你的图示效果，可于主窗体建一文本框，比如名字为xianshi
而后：
在相应子窗体的成为当前事件中
Private Sub 相应子窗体名_Current()
dim ming as string
ming=""
if InStr(ming,me.产品名称)<=0 then
ming=ming & "; " & me.产品名称
end if
me.parent.form.xianshi.value=ming
End Sub

作者: luhao 时间: 2009-2-22 20:37

噢!楼主的主贴又重新编辑了，但我实在不明白你最终要达到什么结果？
如按你的图示效果，可于主窗体建一文本框，比如名字为xianshi
而后：
在相应子窗体的成为当前事件中
Private Sub 相应子窗体名_Current()
di ...
koutx 发表于 2009-2-22 13:02

行不通喔，老大

作者: Henry D. Sy 时间: 2009-2-22 20:41
传例子

作者: ly 时间: 2009-2-22 21:42
1# luhao

由于没有看到你的数据，只能假设销售明细表中含有“流水单号”和“行号”这二个字段且为键值，可尝试用DLookup这个函数。

作者: koutx 时间: 2009-2-22 22:34
这就对了:
Private ming As String

Private Sub 相应子窗体名_Current()
On Error Resume Next
If InStr(ming, me.产品名称) > 0 Then
Else
ming = ming & " " & me.产品名称
End If
Forms("主窗体名").xianshi.value = ming
End Sub

作者: luhao 时间: 2009-2-26 06:49

这就对了:
Private ming As String

Private Sub 相应子窗体名_Current()
On Error Resume Next
If InStr(ming, me.产品名称) > 0 Then
Else
ming = ming & " " & me.产品名称
End If
Forms("主窗体名").x ...
koutx 发表于 2009-2-22 22:34

主窗体中2个TEXT控件反影不出来

作者: Henry D. Sy 时间: 2009-2-26 07:34

Private Sub Form_Current()
Me.Parent.Text6 = Me.订货单
Me.Parent.Text8 = Me.存货名称
Me.Parent.Text9 = Me.生产数量
End Sub

复制代码

作者: luhao 时间: 2009-3-3 20:05
本帖最后由 luhao 于 2009-3-3 20:27 编辑

Private Sub Form_Current()
Me.Parent.Text6 = Me.订货单
Me.Parent.Text8 = Me.存货名称
Me.Parent.Text9 = Me.生产数量
End Sub

Henry D. Sy 发表于 2009-2-26 07:34

Private ming As String

Private Sub 相应子窗体名_Current()
On Error Resume Next
If InStr(ming, me.产品名称) > 0 Then
Else
ming = ming & " " & me.产品名称
End If
Forms("主窗体名").xianshi.value = ming
End Sub
效果有点似，但有点问题
我已重传例子，望指教。

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