在编辑beforeconnectouterdatasource的时候,终于搞好了外部数据地址的ip设定。
运行正常。
Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.name = "生产管理数据源" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
e.C\PCBupdate$\fjmdb.mdb;Persist Security Info=False"
Else
MessageBox.Show("数据源指向指向文件[ip.txt]丢失,请恢复该文件后重新运行程序!", "提示")
Syscmd.Project.Exit()
End If
End If
然后删除ip.txt,程序按照设计的提示对话框"数据源指向指向文件[ip.txt]丢失,请恢复该文件后重新运行程序!"
恢复ip.txt,狗血了,提示找不到窗口,进去一查,所有的窗口都不见了!
无限郁闷中
!@#¥%……&×()
[此贴子已经被作者于2012-6-4 1:04:47编辑过]