以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  调用历史记录重新打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91803)

--  作者:zhang_yugang
--  发布时间:2016/10/19 13:35:00
--  调用历史记录重新打印
这是一个快递历史打印记录

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20161019130034.png
图片点击可在新窗口打开查看
双击之后弹出一个选择面单类型的窗体

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20161019130047.png
图片点击可在新窗口打开查看
选择相应类型的面单之后,弹出打印窗体

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20161019130056.png
图片点击可在新窗口打开查看
这个功能要怎么实现啊?

Dim r As Row = Tables("记录窗_Table1").Current
Dim md As WinForm.Form = Forms("老面单")
md.Open()
md.Controls("jjkh").Value = r("发件客户") 
……
e.Form.Close()
这个代码是放在面单选择窗体的Button Click事件的,可是实现不了
各位大神,求指教!

--  作者:有点蓝
--  发布时间:2016/10/19 15:06:00
--  
双击代码

Dim md As WinForm.Form = Forms("老面单")
md.Open()

 Forms("老面单")afterload事件
Dim r As Row = Tables("记录窗_Table1").Current
e.form.Controls("jjkh").Value = r("发件客户") 

--  作者:zhang_yugang
--  发布时间:2016/10/19 20:31:00
--  
可是 Forms("老面单")afterload事件已经有很多代码了,它本身就是一个独立的数据输入窗口
--  作者:有点蓝
--  发布时间:2016/10/19 20:59:00
--  
某个事件有多少代码和你要实现的功能有必然关系吗。

以最合适的代码完成自己需要的功能才是主要的