Question

vb6.0 给datagrid控件单元格赋值。

新手，刚接触vb不就，想请教下各位：

利用datagrid控件显示了数据库的某个表，如何将每一行的第i列至第j列进行求和并赋值给该行的第k列（能在改变某个值之后实时更新）？
求具体代码，感激不尽。。。

Answer 1

datagrid的单元格可以直接在里边进行编辑修改。
也可以通过语句来修改更新某单元格的值，但是，必须是先将该单元格设置为当前活动的单元格；
比如：
DataGrid1.Row = 0
DataGrid1.Col = 0
以上两句，是把DataGrid1的左上角的一个单元格，设置为当前单元格,然后可以通过下面语句进行赋值：
DataGrid1.text = "你好！"

追问

你好，你说的这些单纯的赋值方法我都了解，但是如何达成我上面说的，对每一行的第i列到第j列进行求和然后赋值给第k列，可以做到吗？

追答

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim L As Integer
Dim k As Integer

Dim T As Single

i = 2 '假设i是第2列
j = 4 '假设j是第4列
k = 5 '假设合计后存放在第5列

On Error GoTo MyErrorLine:
DataGrid1.Row = 0
Do While True
　　T = 0
　　For L = i To j
　　　DataGrid1.Col = L
　　　T = T + Val(DataGrid1.Text)
　　Next L
　　DataGrid1.Col = k
　　DataGrid1.Text = T
　　DataGrid1.Row = DataGrid1.Row + 1
Loop
　　Exit Sub

MyErrorLine:

End Sub