Office中国论坛/Access中国论坛

标题: 一个文本框中多行复制到另一个文本框变单行 [打印本页]

作者: wxmuxin88 时间: 2010-9-14 08:50
标题: 一个文本框中多行复制到另一个文本框变单行
把ACCESS中一个文本框中的多行复制到另一个文本框中变成单行，并且原来多行变单行间加序号，哪位达人能帮帮我？

作者: todaynew 时间: 2010-9-14 09:04
所谓多行，就是每一行后面增加了一个chr(10)，把这个chr(10)循环替换成序号即可。

作者: hjb016 时间: 2010-9-14 09:09
我也是这样想的.不过他好像不懂代码

作者: hjb016 时间: 2010-9-14 09:21
Private Sub Command4_Click()
Dim a() As String
Dim i As Integer
Dim strTemp As String
a = Split(Text0.Value, vbCrLf)
For i = LBound(a) To UBound(a)
strTemp = strTemp & i & "、" & a(i) & " "
Next
Text2.Value = strTemp
End Sub

作者: todaynew 时间: 2010-9-14 09:33
本帖最后由 todaynew 于 2010-9-14 09:34 编辑

Private Sub Command4_Click()
Dim a() As String
Dim i As Integer
Dim strTemp As String ...
hjb016 发表于 2010-9-14 09:21

要不给他做个实例算了：

[attach]43478[/attach]

[attach]43479[/attach]

Private Sub Command4_Click()
Dim i As Long
If IsNull(Me.Text0.Value) = True Then Exit Sub
Me.Text2.Value = "1." & Me.Text0.Value
i = 1
Do While True
i = i + 1
Me.Text2.Value = Replace(Me.Text2.Value, Chr(10), i & ".", , 1)
If InStr(Me.Text2.Value, Chr(10)) = 0 Then Exit Do
Loop
End Sub

作者: wxmuxin88 时间: 2010-9-14 11:18
谢谢大虾们的热心帮助，特别是HJB016管理员很耐心，谢谢！

作者: hjb016 时间: 2010-9-14 11:23
问题解决了就好了.结贴

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)