DataReport

下面是个DDE的例子，你可能是没有设置LinkExecute
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
 Print CmdStr
 Cancel = False '如果为TRUE 则客户端要出错
End SubPrivate Sub Form_Load()
        ' 否则在连接DDE程序时会出乱子的
If App.PrevInstance Then
Me.LinkTopic = ""          ' 这两行用于清除新运行的程序的DDE服务器属性，
Me.LinkMode = 0
Picture1.LinkMode = 0              '--
Picture1.LinkTopic = "DDE|Form1"  '  |______连接DDE程序并发送数据/参数
Picture1.LinkMode = 2              '  |      “|”为管道符，是“退格键”旁边的竖线，
Picture1.LinkExecute "asd"  End                              '  结束新程序的运行
End If
End Sub