如何替换与数据表绑定字段的显示内容的字符串
……Set RichTextBox1.DataSource = Adodc1
RichTextBox1.DataField = "要求"
……
要将RichTextBox1中显示的“盘符”替换为“M:”，请问代码应该如何编写？ --------------------编程问答-------------------- RichTextBox1.text="M1" --------------------编程问答-------------------- 这是传说中的 神回复 吗？ --------------------编程问答--------------------
你自己的表述不够全面能怪别人？！就算别人理解错误回复了错误的答案你也没必要发这种无用的反问句！
按照你的表述我给你这样的答案RichTextBox1.Text=Replace(RichTextBox1.Text,"盘符","M:") --------------------编程问答--------------------
--------------------编程问答--------------------
RichTextBox1.Text=Replace(RichTextBox1.Text,"盘符","M:")这个，试过了，只有第一条记录其作用，第二条开始就不行了。
--------------------编程问答-------------------- --------------------编程问答-------------------- 绑定数据库的字段后只能显示一个条目吧？
不要绑定数据库字段，然后在Adodc1_MoveComplete的事件中替换不就可以了
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If pRecordset.BOF Then Debug.Print "BOF"
If pRecordset.EOF Then Debug.Print "EOF"
On Error Resume Next
RichTextBox1.Text = Replace(pRecordset.Fields("要求"), "盘符", "M:")
End Sub
注意BOF和EOF就可以了…… --------------------编程问答-------------------- 多谢 c0631106233
将 RichTextBox1.Text = Replace(pRecordset.Fields("要求"), "盘符", "M:") 一句中
的RichTextBox1.Text 换成 RichTextBox1.TextRTF了，要不然从第二条开始就直接显示RTF码了。
--------------------编程问答-------------------- --------------------编程问答-------------------- 字段值被替换的原因找到了，是因为：为了让 Text1 中同步显示序号，在Private Sub Form_Load()中绑定的结果。代码如下：
'Set Text1.DataSource = Adodc1
'Text1.DataField = "序号"
已经注释掉。
查询代码改为：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & MDB & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from test where 序号=" & Val(Text1.Text) & " "
Adodc1.Refresh
已经能实现直接按序号显示记录，但是此时ADODC控件的按钮就不起作用了。
请问，能实现在直接输入序号选择显示记录后，还能实现ADODC控件的按钮的下一个功能？
比如，在 Text1 中输入 10，点击 Command1后，RichTextBox1中显示第10条记录；此时点击ADODC控件的按钮，能继续连续显示其他记录。 --------------------编程问答-------------------- Adodc1_MoveComplete的事件,adodc本身就有很多事件，你去了解一下吧！ --------------------编程问答-------------------- 好的，谢谢。
补充：VB , 控件
