在记录窗中我需求是：当输入的内容超过行高50时，自动调整行高，否则行高按50，下面代码出错了，请老师指正一下，谢谢！
' 先定义测量文本高度的函数,放在最外层
Function MeasureTextHeight(text As String) As Integer
'这里只是简单示例返回值,实际要根据字体?字号等因素精确计算
Return text.Length * 2
End Function
If Forms("招投标数据校验").Opened Then
Dim bctr = Forms("招投标数据校验").Controls("RecordGrid1").BaseControl
For i As Integer = 0 To bctr.Rows.Count - 1
bctr.Rows(i).Height = 50
Dim cellValue = bctr.Rows(i).Cells(0).Value
If cellValue IsNot Nothing Then
Dim text = cellValue.ToString()
Dim textHeight = MeasureTextHeight(text)
If textHeight > 50 Then
bctr.Rows(i).Height = textHeight
End If
End If
Next
End If
加好友 
发短信
Post By：2025/4/14 21:53:00 [显示全部帖子]
此主题相关图片如下：ppp27.png
