- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求易表对应的狐表公式或代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1037)
-- 发布时间：2008/11/1 17:44:00
-- 求易表对应的狐表公式或代码
易表中，a表某列的公式：
if(findrow("b表","某编码", "=",cell(row-1,col)) > 0,cell(row-1,col),if([某编码] = 0,Maxfor("b表","某编码")+1,[某编码]))
在狐表中怎么表达？
（修改了一下，原两个表的某编码列都是数字型的，所以将""改为0了）
[此贴子已经被作者于2008-11-1 18:00:02编辑过]
-- 发布时间：2008/11/1 18:18:00
--
需要事件编码
做个项目例子上来吧
-- 发布时间：2008/11/2 2:12:00
--
猜是用:表的方法Compute(max(某编码)....)，find....
最好是传文件，然后说明想得到什么样的要求．
-- 发布时间：2008/11/5 10:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:调用记录.table |
附上文件，说明在调用表里的备注列内。这几天在学，可是不能解决，特来求助。
怎么今天狐朋们休假吗，怎么我第一个法帖？
[此贴子已经被作者于2008-11-5 11:10:43编辑过]
-- 发布时间：2008/11/5 13:55:00
--
1、第一个问题参考附件
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目16.table |
2、按钮的代码更简单：
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
For i As integer = 1 To 8
DataTables("订单").AddNew()("编号") = Max + i
Next
-- 发布时间：2008/11/5 13:56:00
--
DataTables("订单").AddNew()("编号") = Max + i
可能不好理解，可以分为两句：
dim dr = DataTables("订单").AddNew()
dr("编号") = Max + i
[此贴子已经被作者于2008-11-5 13:58:25编辑过]
-- 发布时间：2008/11/5 13:56:00
--
dim a1 as integer = Tables("订单").Compute("max(编号)")
Dim drs As List(Of DataRow) = DataTables("订单").Select("[编号] = \'"& a1 &"\' ")
Dim drs2 As List(Of DataRow) = DataTables("调用").Select("[编号] = \'"& a1 &"\' ")
dim a2 as integer = drs2.count
if a2 <1 then
For Each ddang as datarow in drs
Dim r As Row = Tables("调用").Rows.AddNew()
r("编号") = ddang("编号")
r("日期") = ddang("日期")
r("数量") = ddang("数量")
r("产品") = ddang("产品")
next
else
messagebox.show("数据已存在")
end if
（可以在命令窗口运行，看下效果，是不是这个要求)
[此贴子已经被作者于2008-11-5 13:56:41编辑过]
-- 发布时间：2008/11/5 13:58:00
--
原来老六出手了。。。。
-- 发布时间：2008/11/5 14:02:00
--
我是将编号列要改为数据型来试。如果不改,要转换数据类型(max才有效果)
-- 发布时间：2008/11/5 14:57:00
--
我也是，必须改的