主题：求高手帮忙将易表里的计算公式转到FOXTABLE里。多谢！

楼主不会是想让人帮你做全部程序吧?呵呵

如果楼主急于将程序用于工作,我可以帮你完成这表中的其它几列公式,不过,我劝你还是要多看看帮助,学着自己做做,不懂的可以上来问,论坛上的热心人不少啊.
另,我也是四月初才开始学狐表的,我也没学过编程,也是从零开始学的,我想楼主应该比我聪明,又年轻,应该比我学的还要快吧,呵呵

你表中的有些列和易表中并不一致,如何处理?,比如
[滤纸_宽度] * 2 * [滤纸_折数] * [滤纸_高度] * [滤纸_克数] * [滤纸_单价] / 0.9 / 1000000000000
而狐表中并没有高度这一列,

还有二列表达式列:人民币和美金列,你自己学着改成数据库吧
先删除原表达式列,然后再增加数据库就可以

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:易表里的计算公式转到foxtable.table

在我做的代码中:dr,代表行,那么,当前行"中心管_厚度"列的正确写法就应该是:dr("中心管_厚度") ,所以,如果楼主想在改列名称,注意只需改引号中的中文字就可以了,也就是说,列名称一定要用dr用括号及引号括起来.

你表中的数据列的选项要一致,比如,全都是高精度,或是全都是双精度,不然,总成本那里做合计时就会出错了

将允许编辑设为:FALSE

 

Find

在DataTable查找符合条件的行，如果找到的话，返回找到的行，否则返回Nothing。
如果有多个符合条件的行，默认返回第一个，也可以指定返回第几个符合条件的行。

语法：

Find(Filter,Sort,Index)

Filter:  条件表达式，请参考表达式的运算符和函数
Sort:    可选参数，指定排序方式。
Index:   可选参数，指定返回第几个符合条件的行。

示例一：

Dim dr As DataRow
dr = DataTables("产品").Find("产品编号 = '03'") '找出编号为03的产品
With DataTables("订单")
    dr = .Find("产品 = 'PD01'","日期") '找出第一次订购PD01产品的记录
    dr = .Find("产品 = 'PD01'","日期",1) '找出第二次订购PD01产品的记录
End With

易表还是按列查啊,狐表菜单中的查找不 是和易表一样吗?在日常工作区,编辑组,就是倒数第二组

可以自己做一个全表查询的窗口,不过,我的功能不够,呵呵
不过,我可以试试