以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何设计一个自动生成数据的窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60224)
--  作者：xjc620
--  发布时间：2014/11/20 13:28:00
--  如何设计一个自动生成数据的窗口
窗口增加一个自动生成数据的按钮,一点按钮弹出一个内容可以编辑窗口,里面的内容是自动生成的,其中有一部份是从当前行里面提取出来的数据 ,一部份是固定的数据.例如生成以下数据内容<SPBSJ*P:BSJGPS*N:14784384696*T:122.000.064.055,7788*D:122.000.064.055,0000*V:13,0300,,,0012375,1,23FR5717,18633308722,LS3T3EH63D0701783,1>
其中里面后部份18633308722,LS3T3EH63D0701783是提取当前表里当前行的手机号列和车架号列,基于数据为固定数据.
--  作者：有点甜
--  发布时间：2014/11/20 14:11:00
--  

Dim Str As String = "<SPBSJ*P:BSJGPS*N:14784384696*T:122.000.064.055,7788*D:122.000.064.055,0000*V:13,0300,,,0012375,1,23FR5717,手机号,车架号,1>"
str = str.Replace("手机号", Tables("表A").Current("第一列")).Replace("车架号", Tables("表A").Current("第二列"))
msgbox(str)
--  作者：xjc620
--  发布时间：2014/11/20 14:14:00
--  
是不是建一个文本框窗口,代码写到哪个事件
--  作者：xjc620
--  发布时间：2014/11/20 14:28:00
--  
老师这个弹出的窗口不能编辑,我想把生成的这个代码复制下来,怎么可以编辑,或都在窗口增加一个复制按钮也可以,怎么做啊
--  作者：有点甜
--  发布时间：2014/11/20 14:54:00
--  

直接快捷键Ctrl+V即可

 

Dim Str As String = "<SPBSJ*P:BSJGPS*N:14784384696*T:122.000.064.055,7788*D:122.000.064.055,0000*V:13,0300,,,0012375,1,23FR5717,手机号,车架号,1>"
str = str.Replace("手机号", Tables("表A").Current("第一列")).Replace("车架号", Tables("表A").Current("第二列"))
ClipBoard.SetText(str)
 
--  作者：xjc620
--  发布时间：2014/11/20 15:00:00
--  
不行啊,连数据都不能自动生成了啊,怎么回事,还是不弹出对话框了?
[此贴子已经被作者于2014-11-20 15:00:29编辑过]
--  作者：有点甜
--  发布时间：2014/11/20 15:01:00
--  
以下是引用xjc620在2014-11-20 15:00:00的发言：
不行啊,连数据都不能自动生成了啊,怎么回事

 

无语，先执行代码，再粘贴数据啊
--  作者：xjc620
--  发布时间：2014/11/20 15:03:00
--  
呵呵,明白了老师