建了个窗体，放入了TextBox1控件，随时显示选中单元格内容，窗体的timertick事件原代码为： static ps As String = Nothing
Dim s As String = CurrentTable.Name & "." & CurrentTable.Cols(CurrentTable.ColSel).name
If ps <> s Then
e.Form.controls("TextBox1").BindingField = CurrentTable.Name & "." & CurrentTable.Cols(CurrentTable.ColSel).name
End If
ps = s
现在想让窗体在显示单元格内容时，每个换行符产生的行右缩进2 个字符，根据蓝版的代码，改动后放入窗体的timertick事件，出错，请帮忙看看错在哪里：
Dim arr() As String = e.Form.Controls("TextBox1").Split(vbcrlf)
Dim str As String = ""
For Each s1 As String In arr
str = str & vbcrlf & " " & s1.Trim(vbcr,vblf)
Next
e.Form.Controls("TextBox1").text = str.TrimStart(vbcr,vblf)
加好友 
发短信
Post By：2016/11/20 10:29:00 [只看该作者]
