主题：[分享] 共用编辑框

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

全局代码：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 文本行距就圆满了。