以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多表共用窗体方法求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159465)

--  作者:zsxx999ja
--  发布时间:2020/12/27 15:38:00
--  多表共用窗体方法求助
我的窗体上有三个sqltable类型表,由于编辑行时不能自动换行,于是改用一个共用窗体加文本框来输入,下面的方法在单机上测试没有问题,1、请问多用户时此法可用吗?2、正确的方法请指导!

第一 步:
在每窗体表的DoubleClick事件中加如下代码
vars("str") = e.Row(e.Col.Name)
vars("tb")= e.Table.Name
vars("colnane") = e.Col.Name
Forms("auto输入").Open
第二步:在输入窗体(forms(“aut输入”))的AfterLoad 事件中加代码
Dim txtauto As WinForm.TextBox = e.Form.Controls("txtauto输入")
txtauto.Text = ""
txtauto.Text = vars("str")
第三步  forms("auto输入”)的BeforeClose 事件代码
Tables(vars("tb")).Current(vars("colnane")) = vars("str")


--  作者:爱好所有
--  发布时间:2020/12/27 19:30:00
--  
多用户编辑同一行的话你要用到:用OpenQQ实现独占式编辑
搜一下帮助

--  作者:有点蓝
--  发布时间:2020/12/27 21:44:00
--  
可用的,这种东西不可能会影响其它项目的,和多用户没有任何关系