[求助]默认值能来源于某列是否更好？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]默认值能来源于某列是否更好？

共有26681人关注过本帖树形打印复制链接主题：[求助]默认值能来源于某列是否更好？

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/30 11:14:00 [显示全部帖子]

这种只能用计算代码来实现。

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/30 11:50:00 [显示全部帖子]

其实是一样的，下面的代码难道很难吗？

If e.DataCol.Name = "收货重量" Then '如果输入的是收货重量

If e.DataRow.IsNull("结算重量") Then '而且结算重量没有输入内容

e.DataRow("结算重量") = e.NewValue '结算重量等于新输入的收货重量

End If

请参考下面的例子，没有使用计算代码，代码在DataColChanged事件中：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目24.table

我觉得比易表更清晰，而且不容易误动。

[此贴子已经被作者于2008-10-30 11:50:35编辑过]

[本帖被加为精华]

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/30 14:18:00 [显示全部帖子]

设置在AfterEdit事件中，因为这个事件用于跟踪输入：

Dim Count As Integer= e.Row("数量")

If e.Col.Name = "单价" Then

e.Row("金额") = Count * e.Row("单价")

Else If e.Col.Name = "金额" Then

e.Row("单价") = Math.Round(e.Row("金额")/Count,2)

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目24.table

[本帖被加为精华]

主题：[求助]默认值能来源于某列是否更好？