一个文本框中多行复制到另一个文本框变单行

wxmuxin88

把ACCESS中一个文本框中的多行复制到另一个文本框中变成单行，并且原来多行变单行间加序号，哪位达人能帮帮我？

hjb016

问题解决了就好了.结贴

wxmuxin88

谢谢大虾们的热心帮助，特别是HJB016管理员很耐心，谢谢！

todaynew

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

要不给他做个实例算了：





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

hjb016

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

hjb016

我也是这样想的.不过他好像不懂代码

todaynew

所谓多行，就是每一行后面增加了一个chr(10)，把这个chr(10)循环替换成序号即可。