更新:如何在主窗体中文体显示子窗体的数据((图)重传例子)

luhao

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

luhao

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
效果有点似，但有点问题
我已重传例子，望指教。

Henry D. Sy

1. Private Sub Form_Current()
   
2.     Me.Parent.Text6 = Me.订货单
   
3.     Me.Parent.Text8 = Me.存货名称
   
4.     Me.Parent.Text9 = Me.生产数量
   
5. End Sub
   
6. 
   

复制代码

luhao

这就对了:
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控件反影不出来

koutx

这就对了:
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

ly

1# luhao

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

Henry D. Sy

传例子

luhao

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

行不通喔，老大

koutx

噢!楼主的主贴又重新编辑了，但我实在不明白你最终要达到什么结果？
如按你的图示效果，可于主窗体建一文本框，比如名字为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

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