- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不改变列的格式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83121)
-- 发布时间：2016/3/31 19:58:00
-- 不改变列的格式
能帮忙看看这个代码吗？
为什么这个代码自行后 Tables("日计划").Current("心得") 的内容的格式就变化了，可以不变化吗？
比如格式是 今天
明天
后天
然后打开后列就是：今天明天后天。
麻烦了 感谢 感谢
Dim rtxt As New Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt, 400)
rtxt.name = "mytxt"
rtxt.Dock = 5
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
rtxt.Multiline = True
rtxt.Text = Tables("日计划").Current("心得") \'改变字体
addhandler rtxt.TextChanged, addressof mytxt_TextChanged
rtxt.backColor = Color.DimGray \'背景颜色
rtxt.ForeColor = Color.Snow \'字体颜色
rtxt.Font = New Font("宋体", 16 )
e.Form.Controls("DateTimePicker1").Text = Date.Today
-- 发布时间：2016/3/31 20:05:00
--
贴出 mytxt_TextChanged 的代码
或者上传具体例子。
-- 发布时间：2016/4/5 21:33:00
--
麻烦你了
此主题相关图片如下：qq截图20160405212932.png
-- 发布时间：2016/4/5 21:51:00
--
改一下代码
Dim sender = args(0)
Dim e = args(1)
Tables("表A").Current("第一列") = sender.Text.replace(chr(13), "").replace(chr(10), vbcrlf)
-- 发布时间：2016/4/5 22:35:00
--
谢谢你 可以了