有点难度，200分！求不同窗口鼠标点击选取记录的通用程序

Question

譬如 A 窗口正在录入数据，录入到“业务员”时，不想输入汉字或需要获得“业务员”ID，弹出一个窗口 B ，将“业务员”列表出来（SELECT 业务员ID,业务员 From 业务员表）,鼠标点击B窗口业务员列表一条记录，同时关闭B窗口，A窗口获得 业务员ID,业务员这在很多数据应用程序中很常用，并且一个程序中多个地方需要用到，所以尽量用函数封装起来比较好求例子或思路

Answer 1

俺的作法：
在窗體B中添加一GRID之類的控件，SQL語句及連接字串做成一函數，在A中雙擊輸入框時彈出B，並同時把參數(即SQL語句及連接字串)傳給B，在B中產生一數據集顯示在GRID中，在GRID中單擊某列時，再傳回你要的值就這樣簡單，沒你說的那麼難

Answer 2

其它很简单
只要你在B窗加上如下2句
public txt as textboxform_unload() '当选好里
if not txt is nothing txt = rs("业务员ID")A窗调用时
set frm as B窗
b窗.show
set b窗.txt= ID_textBox '用于输入业务员ID的textBox

Answer 3

弹出来的应该是个通用对话框,可以为很多数据做参照原理:在这个窗体内做一个窗体级公共变量
     窗体名为PubForm
     public strForm as string     '这个变量是由不同参照对象来输入的     当其他窗体中调用时,需要添加下面代码
     PubForm.strForm="员工"
     pubForm.show
     
     在PubForm窗体的Form.Load事件中加入
     select case strForm
       case "员工"
         此处显示相关信息,比如列出员工信息列表
       .......
     end select      在PubForm窗体的表格控件中的Click或DblClick事件中添加相关信息,以DataGrid为例
     select case strForm
       case "员工"
          将表格选定的数据赋值给相关窗体中的控件中
       ..........
     end select 
     unload me       '关闭窗体,显示另一窗体