以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列中持续增加值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11811)

--  作者:youyuweinihao
--  发布时间:2011/8/12 16:39:00
--  列中持续增加值

已上传附件为列

在表"客户信息"的窗口”购买服务包“的控件Textbox1中输入值,该值会保存到表”客户信息“--中的列”已购服务包“的中,后期再购买时则把每次购买的值都保存到--”已购服务包“并且用逗号隔开

列如第一次操作,在Textbox1中输入A,点击“购买”按钮A值这保存到“已购服务包”显示A

第二次操作,在Textbox1中输入B,点击”购买“按钮B值也保持到“已购服务包”显示A,B

第三次------                                                                                            显示A,B,C

以下类似

这个按钮的CLICK代码怎么写

   

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar


--  作者:mr725
--  发布时间:2011/8/12 16:52:00
--  
Dim yg As String = Tables("客户信息").current("已购服务包")
Dim tx As String = Forms("购买服务包").Controls("TextBox1").text
Tables("客户信息").current("已购服务包") = yg & "," & tx