- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列窗口可否改进一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50155)
-- 发布时间：2014/4/30 12:51:00
-- 列窗口可否改进一下
列属性里定义了列表项目“｜...”后，点击Cellbutton，可以弹窗 编辑 查看 单元格内容，问题是这个窗口里的字体和行间距都不能定义，看着太累，这个是否可以改进一下？
此主题相关图片如下：快照1.jpg
[此贴子已经被作者于2014-4-30 13:01:08编辑过]
-- 发布时间：2014/4/30 12:54:00
--
支持
-- 发布时间：2014/4/30 13:00:00
--
或者象 “备注列窗口”一样，可以继承Table的字体，改成“微软雅黑”后
此主题相关图片如下：快照2.jpg
这个样子就好很多了。
-- 发布时间：2014/4/30 13:50:00
--
自己做个窗口，窗口里放个多行文本框，停靠设为Fill。
文本框，字体随你设。
单元格按钮，默认动作取消：
e.Cancle = True
Forms("多行文本框").Open
Forms("多行文本框").Controls("TextBox看起来舒服").Text = e.Table.Text
窗口关闭事件：AfterClose
Tables("表A").Value(t.RowSel,t.ColSel) = e.Form.Controls("TextBox看起来舒服").Text
-- 发布时间：2014/4/30 14:03:00
--
这个方法不错！
谢谢LSY版主！
如果系统自带这个改着不费劲，就请狐爸考虑考虑哈，毕竟更方便些。
-- 发布时间：2014/4/30 14:50:00
--
版主的这个方法设计的窗口不用能“模式窗口”，另外打开窗口显示文本略有延迟，还是希望系统级的改进。
呼吁。。。
-- 发布时间：2014/4/30 14:52:00
--
用什么模式的窗口可以自己设置的啊.
-- 发布时间：2014/4/30 14:58:00
--
设置成“模式窗口”报错，用停靠和独立就可以
此主题相关图片如下：快照1.jpg
此主题相关图片如下：快照2.jpg
-- 发布时间：2014/4/30 15:02:00
--
模式窗口,赋值代码要放到窗口ALterLoad事件
-- 发布时间：2014/4/30 15:04:00
--
模式的话，要这样写了，把这句写到afterload事件
Forms("多行文本框").Controls("TextBox看起来舒服").Text = e.Table.Text
改成
e.Form.Controls("TextBox看起来舒服").Text = CurrentTable(CurrentTable.TopRow, CurrentTable.LeftCol)