如何修改数据窗口里的值？

[hai00jiao]

数据窗口检索出数据后，有一列的数值需要人工修改然后保存更新数据库里的表，修改的这个数据大部分是根据后边的一列的数值×系数计算得来的，为了使用者方便就让需要修改的这列直接变成后边那一列的数值×系数，需要特别修改的再修改，这样可以减少工作量。是个老系统pb6.5的。哪位高手能说说怎么解决，不胜感激。。

[hyf_0023]

有两种方法
1.在Datawindow对象的计算列中的Expression中定义；
2.在Datawindow控件的retrieveend事件中写代码赋值。

[hai00jiao]

[Quote=引用 1 楼 hyf_0023 的回复:]
有两种方法
1.在Datawindow对象的计算列中的Expression中定义；
2.在Datawindow控件的retrieveend事件中写代码赋值。
[/Quote]
能不能说详细一点，我是菜鸟，只会照着别人说的做。

[hai00jiao]

自动改的那一列也是对应这数据库表里的列的，改完后也要更新数据库表里的数据的，并不是单单的显示出那个结果来。

[hyf_0023]

好吧，写一下。

在Event retieveend中写：

long i
for i = 1 to rowcount
this.object.更新列名[i] = this.object.列名[i]*系数
next

[xiaobn_cn]

[Quote=引用楼主 hai00jiao 的回复:]
数据窗口检索出数据后，有一列的数值需要人工修改然后保存更新数据库里的表，修改的这个数据大部分是根据后边的一列的数值×系数计算得来的，为了使用者方便就让需要修改的这列直接变成后边那一列的数值×系数，需要特别修改的再修改，这样可以减少工作量。是个老系统pb6.5的。哪位高手能说说怎么解决，不胜感激。。
[/Quote]

假设需要计算的列是C1,另两列是A和B，数据窗口是dw_1。
在dw_1的retrieveend事件输入下面的代码：

Long i
For i = 1 To RowCount
   dw_1.Object.C1[i] = dw_1.Object.A[i] * dw_1.Object.B[i]
Next