以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  RichTextBox控件怎么绑定值到对应的表列中呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160071)
--  作者：cnsjroom
--  发布时间：2021/1/19 14:07:00
--  RichTextBox控件怎么绑定值到对应的表列中呢？
帮助手册  关于第三方开发接口中有如下内容        
所有的控件都有一个BaseControl属性，返回其对应的System.Windows.Forms.Control对象

窗口有一个Panel对象，返回一个Foxtable.FormPanel容器，窗口所有的控件都在这个容器中
对于模式窗口和独立窗口，可以通过窗口的BaseForm属性，返回对应的System.Windows.Forms.Form对象

例如希望消除某个独立或模式窗口的边框，可以在窗口的AfterLoad事件中加入代码：
e.Form.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

在窗口添加第三方控件的时候，不能直接添加到BaseForm中，必须添加到Panel中。
例如需要在窗口中加入一个RichTextBox控件，可以在窗口的AfterLoad事件中加入代码：

Dim ct As New System.Windows.Forms.RichTextBox
ct.Dock = System.Windows.Forms.DockStyle.Fill
e.Form.Panel.Controls.Add(ct)

如果已经添加了第三方控件，建议在窗口的BeforeClose事件中，将这些控件移除并销毁。

在一个窗体中 有一个按钮   代码如下：（定义一个富文本并且绑定该富文本到"表A"的第一列，下面的代码没有实现数据保存在表a的第一列。求解！）
        Dim ct As New System.Windows.Forms.RichTextBox
        ct.Dock = System.Windows.Forms.DockStyle.Fill
        e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)
        ct.text=rng.Text \'.replace(chr(13), vbcrlf)
        If e.Form.Controls("Panel1").BaseControl.Controls("TextBox1").DataBindings.Count =0 Then
            e.Form.Controls("Panel1").BaseControl.Controls("TextBox1").DataBindings.add("Text",Tables("表A").Grid.DataSource, "第一列")
        End If

第二 怎样清空这个RichTextBox控件里的值  便于新增数据时 保存新的内容呢？帮助里说是要移除并销毁？怎么实现额？
--  作者：有点蓝
--  发布时间：2021/1/19 14:19:00
--  
使用代码赋值：

ct.text=tables("表A").current("第一列")

保存：
tables("表A").current("第一列") = ct.text



Clear()

从文本框控件中清除所有文本。

(继承自 TextBoxBase)