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

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控件反影不出来

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