form1窗体中
Private Sub Text1_Change()
Frmzt.Show 1
End Sub

Frmzt窗体中
Private Sub DataGrid1_Click()
  Form1.Text1 = Adodc2.Recordset.Fields(0)
  Unload Me
End Sub

Private Sub Form_Load()
Option2.Value = True
End Sub

Private Sub Text1_Change()
Dim fivepen As String
Dim spell As String
 '如果没有选择部分信息，则退出
  If Text1.Text = "" Then
    Exit Sub
  End If
fivepen = "select medname,medspec,fivepen,spell from dbo.Medicine where fivepen like'" _
      & Text1.Text & "%" & "'"
spell = "select medname,medspec,fivepen,spell from dbo.Medicine where spell like'" _
      & Text1.Text & "%" & "'"
       If Option2.Value Then
       With Adodc2
       .RecordSource = fivepen
        .Refresh
        End With
        End If
         If Option1.Value Then
      With Adodc2
      .RecordSource = spell
      .Refresh
      End With
      End If
      '读取数据
        
End Sub


要在form1窗体中的文本框录入数据时弹出Frmzt窗体后，将Frmzt窗体中选中的数据赋值到form1窗体中的文本框中，但出现实时错误‘400
窗体已经打开，不能显示为有的模式的
不知错在哪？请各位帮个忙修改主，先谢了

把你的工程放上来给我们调试吧，干看代码眼很痛。。。

Frmzt窗体中
Private Sub DataGrid1_Click()
  Form1.Text1 = Adodc2.Recordset.Fields(0)
  Unload Me
End Sub



  这段中的Form1.text1少了点什么吧。你改成  Form1.text1.text = Adodc2.recordset.Fields(0)  看看！

看了半天都没弄懂出错代码在哪个过程里。语言表述能力呀……

错在将Frmzt窗体中选中的数据赋值到form1窗体中的文本框中时并返回form1窗体时出现错误信息，错误代码：Frmzt.Show 1，这样说清楚了吗？

[[it] 本帖最后由 jxawgyl 于 2008-7-19 08:06 编辑 [/it]]

老实说，我还是不知道出错代码在哪行。
是不是点击DataGrid之后？

是的，谢版主抽出时间看一下，

是的，谢版主抽出时间看一下，后我用：
Private Sub Txtmed_Change()
If Txtmed.Text = "" Then
Exit Sub
  End If
  Frmypcx.Hide
 Frmypcx.Visible = False
 Frmzt.Show
End Sub
但有个问题是，（Frmypcx.Hide）
Frmypcx窗体隐藏起来，录入第一次可以，录入第二次的话就不行连Frmzt窗体也隐藏了，不知原因，请帮看一下。

[[it] 本帖最后由 jxawgyl 于 2008-7-19 11:00 编辑 [/it]]

别这么用。

你这样用的话，只有一个Frmzt，每次弹出的Frmzt从逻辑上是一个玩意。而实际上你每次需要弹出的Frmzt在逻辑上没有联系，所以建议每次新建Frmzt的实例。

 '需要调用Frmzt了

 Dim oFrmzt=New Frmzt

 '创建新的实例

 oFrmzt.Show 1

 '显示出来

 msgbox oFrmzt.你要的那个TextBox.Text

 '获取数据，我这里用Msgbox


 Unload oFrmzt

 Set oFrmzt=Nothing

 ' 从内存中删除这个实例。名词叫释放。

谢了版主，我按你说的：
Private Sub Txtmed_Change()
'需要调用Frmzt了
Dim oFrmzt As New Frmzt
'创建新的实例
oFrmzt.Show 1
'显示出来
MsgBox oFrmzt.Text1.Text
'获取数据，我这里用Msgbox

Unload oFrmzt
Set oFrmzt = Nothing
' 从内存中删除这个实例。名词叫释放。

End Sub
但是在点击DataGrid之后，不能关闭Frmzt窗体，并没有任何错误信息。
请再帮我看一下。

[[it] 本帖最后由 jxawgyl 于 2008-7-21 15:07 编辑 [/it]]