在VB中，若要在Text1控件中显示DataGrid1控件某一列的和，可以通过遍历DataGrid1中的该列所有行，并将每行的值累加起来实现。假设我们要统计的是第一列，可以使用以下代码：
vb
Dim sum As Double
Dim i As Integer
' 初始化求和变量
sum = 0
' 遍历DataGrid1中的所有行
For i = 0 To DataGrid1.Rows.Count - 1
' 假设我们要累加的是第一列，且该列数据类型为Double
' 使用CDbl函数确保数据类型转换正确
sum = sum + CDbl.Cells.Value)
Next i
' 将计算结果赋值给Text1控件
Text1.Text = CStr
这段代码首先声明了一个用于求和的变量`sum`和一个用于循环的变量`i`。接着，通过For循环遍历DataGrid1中的所有行。在每次循环中，通过访问`DataGrid1.Rows.Cells.Value`来获取第一列当前行的值，并使用`CDbl`函数将其转换为双精度浮点数进行累加。最后，使用`CStr`函数将求和结果转换为字符串，并赋值给Text1控件的Text属性，以便在界面上显示。
请注意，上述代码假设DataGrid1已经正确绑定数据源，并且第一列中的数据可以转换为Double类型进行数学运算。如果实际情况有所不同，可能需要对代码进行相应调整。
下载本文
