我使用以下代码将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
现在我想将存储在不同字段中的所有数据检索到一个TX控件（在两列表中），然后将其保存到文件中。我使用的代码是这样的：
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文本/符号而不是实际内容。
Link to file that TX TextControl is outputting.
请帮忙解决这个问题。
答案 0 :(得分：0)
一个。你应该告诉我们tx是什么。是RichEdit控件吗？属性与TOM或RTF控件不匹配。
如果是这样，它看起来像。看看你指定rtf的最后一行。
答案 1 :(得分：0)