标题：[求助]自动计算列的数据，如何实现手动更改！

1楼

gaoyong30000 发表于：2011/8/26 9:38:00

我这个项目有2列当前里程和最后保养公里数

最后保养公里数=当前里程+3000 或当前里程+5000

当前里程为空当前里程非空

但是有时候我需要手动更改保存最后保养公里数

之前用了表达式列和表属性 datachanged事件均不可手动更改

利用窗口控件事件也出错

e.Form.Controls("TextBox14").Value = e.Sender.value + 5000

特来求助~~

现在表属性 datachanged事件代码为

Select Case e.DataCol.Name
    Case "当前里程","下次保养公里数"
        Dim dr As DataRow = e.DataRow
        If dr("当前里程")= 0 Then
            dr("下次保养公里数") = 3000
        Else
            dr("下次保养公里数")= dr("当前里程") + 5000
        End If
End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:内控系统22.rar

2楼

mr725 发表于：2011/8/26 10:07:00

可能要增加一个判别列了·····或在其他文本列中输入一个特别的记号来判别。

3楼

狐狸爸爸 发表于：2011/8/26 10:10:00

Select Case e.DataCol.Name
    Case "当前里程"
        Dim dr As DataRow = e.DataRow
        If dr("当前里程")= 0 Then
            dr("下次保养公里数") = 3000
        Else
            dr("下次保养公里数")= dr("当前里程") + 5000
        End If
End Select

4楼

gaoyong30000 发表于：2011/8/26 10:27:00

图片点击可在新窗口打开查看又一次

Case "当前里程","下次保养公里数"

多了一个下次保养公里数就会出现不可修改原理是什么？

5楼

狐狸爸爸 发表于：2011/8/26 10:31:00

如果多一个下次保养公里数的话，每次修改下次保养公里数，就会执行：

    Dim dr As DataRow = e.DataRow
    If dr("当前里程")= 0 Then
        dr("下次保养公里数") = 3000
     Else
        dr("下次保养公里数")= dr("当前里程") + 5000
    End If

也就是手工修改了下次保养公里数，就会按上面的代码重算下次保养公里数，输入自然就无效了。

建议重读帮助文件3遍，特别是foxtable编程这部分。

[此贴子已经被作者于2011-8-26 10:32:18编辑过]

6楼

foxor 发表于：2011/8/26 10:33:00

需要修改的数据不要用表达式列，手动修改最好设置相应的权限

7楼

gaoyong30000 发表于：2011/8/26 10:42:00

恩我也正准备再仔细看几遍帮助呢

共7 条记录, 每页显示 10 条, 页签: [1]