各位仁兄：
本人是个新手，请问：当栅格列长已确定，当栅格内的内容超过设定长度，怎么
才能实现自动换行？
请高手不吝赐教，感激不尽！

if len(datagrid1.text)>伱的列長最多容納的字符 then
datagrid1.text =datagrid.text & vbcrlf
end if

没试..不过楼上的方法...换行加在最后...有用吗?
纯属猜测 觉得应该如下:

Lenth = len(trim(Text))
i = 0
if Lenth > MaxLen0 then
Do
Text = left(Text,(i + 1) * MaxLent + i))+ vbcrlf + right(Text,Lenth - MaxLen * (i + 1))
i = i + 1
Lenth = Lenth - MaxLen0
Loop until Lenth <= MaxLen0
end if
...

恩 下班了 没有测试 不知道对不对

谢谢两位的帮助。
两位的方法我都试了，怎么还是不行？
小弟非常急，请在座的高手们给我指点迷津，将不胜感激！

很简单的！！
这边以Text文本框给你一个例子，DataGrid是一样子的（把Text换成DataGrid就可以了）。这里假设单行允许最大长度是10个字符（每一行超过10各字符就换行）
注意：要把属性里面的MultiLine设为True哦！！
我这里用了两个文本框，在txtAdd.Text里面输入字符，把它添加到txtTest.里面实现换行的效果。你做的时候用蓝色字体本分的这个算法就可以了！

Private Sub cmdTest_Click()
Dim strTest As String
Dim strBridge As String

strTest = txtAdd.Text

If Len(strTest) > 10 Then
Do While Len(strTest) > 10
strBridge = strBridge & Left(strTest, 10) & vbCrLf
strTest = Mid(strTest, 11)
Loop
End If

txtTest.Text = strBridge & strTest

End Sub

[此贴子已经被作者于2007-1-26 13:02:35编辑过]

谢谢指点，可是我用还是不行，而且datagrid好像没有multiline属性。
还是请大家给我帮助，我实在是弄不出来！

你加给datagrid当然不行了!
不管你用的是几楼的方法 都应该加给datagrid的cell才对吧
我记得 vb6的datagrid的列是可以设置成textbox,dropdownlist等形式的控件的

怎么都用ＶＢ

最简单的思路:
Private Sub DataGrid1_Change()
If Len(DataGrid1.Text) > 2 Then
Adodc1.Recordset.MoveNext
End If
End Sub

[此贴子已经被作者于2007-4-18 22:27:02编辑过]

还有..以后求助的贴不要加上原创!