以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享] 共用编辑框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168769)

--  作者:zcgmxf
--  发布时间:2021/5/22 22:51:00
--  [分享] 共用编辑框

共用编辑框,比较简单粗糙,共用一个窗口。测试适用所有表,欢迎修改提升。

 

全局代码:Public bjtab As Table
              Public bjcol As Col

 

窗口代码:模式窗口  AfterLoad :Forms("编辑框").Controls("TextBox1").BindingField = bjtab.Name & "." & bjcol.Name

         控件TextBox1字体 微软雅黑 4号 比较合适

 

表事件 : DoubleClick

         If e.Col.Name = "值班要求" Or e.Col.Name = "科室值班人员" Or e.Col.Name = "机动队员" Then
                   bjtab = e.Table
                   bjcol = e.Col
                   e.Cancel = True
                   Forms("编辑框").Open()
              End If

 

如果能调整 TextBox1 文本行距就圆满了。

[此贴子已经被作者于2021/5/23 6:19:21编辑过]