希望从一个TX文本控件中的所有字段收集数据并保存到VB6中的文件

我使用如下代码将TX的内容存储到数据库：

Dim ba() As Byte
Dim FlValue As String

ba = MyTX001.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd001").Value = FlValue

ba = MyTX002.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd002").Value = FlValue

Dim ba() As Byte
Dim RowNum As Long

txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd001").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

txFinalOutput.TableInsertLines txTableInsertAfter, 1  'Add a new Row
RowNum = RowNum + 1


txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd002").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

现在，我想将存储在不同字段中的所有数据检索到一个TX控件（在一个两列表中），然后将其保存到一个文件中。我使用的代码如下所示：

Dim ba() As Byte
Dim FlValue As String

ba = MyTX001.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd001").Value = FlValue

ba = MyTX002.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd002").Value = FlValue

Dim ba() As Byte
Dim RowNum As Long

txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd001").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

txFinalOutput.TableInsertLines txTableInsertAfter, 1  'Add a new Row
RowNum = RowNum + 1


txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd002").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

但这是将DB中的内容作为RTF文本/符号插入，而不是实际内容

---

请帮助解决这个问题。

A.您应该告诉我们什么是tx。是RichEdit控件吗？属性与TOM或RTF控件不匹配

---

如果是这样的话，看起来是这样的。查看最后一行指定rtf的地方

对于RichTextBox控件，可以指定数据是纯文本还是包含rtf控件字符

RichTextBox1.LoadFile strFile, rtfRTF

---

查看

TX是第三方ActiveX的TX文本控件这不是简单的RTF控件。它是一个专门的字处理控件，称为TX TextControl。我不是从文件中加载文本，而是从DB表中的字段中加载文本。啊，对不起，我不知道那个控件。恐怕我帮不了你。很抱歉