在可执行文件 n_01.exe 上有如下一个按钮,用来察看每个人的详细情况:Private Sub cmdDetail_Click()
Shell App.Path & "\" & "n_02.exe " & rst(0), vbNormalFocus 'rst(0)为用户ID
End Sub点击之后,就可以在打开的n_02.exe的窗体中,通过命令行参数,
查看对应用户ID的所有工作日报。如下:
Call Connect
strSQL2 = "SELECT * FROM TD_DAY WHERE USER_ID='"
strSQL2 = strSQL2 & Trim(Command)
省略
rst.Open strSQL2, con, 1, 3但是,我现在还想把rst(1),也就是工作日报的日期也传过去。
这样,就可以查看某个用户在某一天的工作日报。请问如何同时传递两个参数?第二个窗体如何接收?
Shell App.Path & "\" & "n_02.exe " & rst(0), vbNormalFocus 'rst(0)为用户ID
End Sub点击之后,就可以在打开的n_02.exe的窗体中,通过命令行参数,
查看对应用户ID的所有工作日报。如下:
Call Connect
strSQL2 = "SELECT * FROM TD_DAY WHERE USER_ID='"
strSQL2 = strSQL2 & Trim(Command)
省略
rst.Open strSQL2, con, 1, 3但是,我现在还想把rst(1),也就是工作日报的日期也传过去。
这样,就可以查看某个用户在某一天的工作日报。请问如何同时传递两个参数?第二个窗体如何接收?
解决方案 »
- vb 中File1控件已经读取了100个txt文件(名字任意)。如何把每个文件内容写入到 text1控件中,
- 为什么我做的安装程序,安装后运行总是提示,许多ocx文件提示运行错误?
- VB6.0高手请进:VB6.0中如何使点击右上角的关闭按钮时不执行unload事件?在线等待!!!
- 如何让VB的代码编辑器支持鼠标中间键(可以用滚轮滚动查看代码,像VC和DEPHI一样),谢谢!
- 实在不会了,各位教我怎么改,谢谢了!
- 如何通过VB 代码来实现 从ACCESS数据库的表及数据直接转至一个SQL 2000的数据库里的功能? 急~~
- 啊
- 存儲過程在VB在怎么用
- 一个非常简单的问题!高分救教!在线等候!
- 紧急求救!
- vb怎样删除临时文件
- 代码共享】关于Win2K/NT/XP环境下LWIN,RWIN,WIN+Any,Ctrl+Esc,Alt+Esc,Alt+TAB等键的禁用
程序一
Private Sub cmdDetail_Click()
Shell App.Path & "\" & "n_02.exe " & rst(0) ","& rst(1), vbNormalFocus 'rst(0)为用户ID
End Sub程序 n_02
Private Sub Form_Load()
strN =split(Command ,",")
msgbox strN(0)
msgbox strN(1)
End SubCommand 参数是 但你的程序在 DOS下 aa.exe aaaaa 此时 command变量 传入"aaaaa"
其次,如果这两个程序都是你写的话,还可以用其他的方法来相互通讯。比如用TCPIP,比如用DDE,比如用剪贴板,等等。
当然,最简单的还是直接把两个程序直接放进一个工程,变成一个程序,直接使用公用变量来传递。
无论是后面的那一种都可以做到实时的通讯,而命令行参数只能在启动的时候传递参数,不是很实用。