主题：小女子有问题请教

忘记了在哪里看到的，尽量不用或少用表达式列，日后软件修改或许会数据库迁移、重定向等操作时丢失表达式列（记忆中的事，不一定正确）

代码写在“外采明细”的表事件（DataColChanged）中

Select Case e.DataCol.Name

    Case "数量","单价" '指定列内容改变后,自动执行下面代码

        Dim dr As DataRow = e.DataRow  '设置当前行变量

            dr("单款采购金额") = dr("数量") * dr("单价") '当前行"合计"=当前行"数量"*当前行"单价"

            Tables("外采订单").Current("总金额") = Tables("外采明细").Compute("Sum(单款采购金额)", "订单号 = '"& dr("订单号")&"'")

End Select

还有，外部数据源的项目上传时要含数据库文件，路径设置为相对路径，复制到其他任意目录都可以正常链接数据库，（ProjectPath: 返回项目文件所在目录）