Foxtable(狐表)用户栏目专家坐堂 → 求易表对应的狐表公式或代码


  共有25615人关注过本帖树形打印复制链接

主题:求易表对应的狐表公式或代码

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
求易表对应的狐表公式或代码  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/11/1 18:18:00 [只看该作者]

需要事件编码
做个项目例子上来吧

 回到顶部
帅哥哟,离线,有人找我吗?
gdtgl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3025 威望:0 精华:0 注册:2008/9/13 10:49:00
  发帖心情 Post By:2008/11/2 2:12:00 [只看该作者]

猜是用:表的方法Compute(max(某编码)....),find....

最好是传文件,然后说明想得到什么样的要求.


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2008/11/5 10:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:调用记录.table


附上文件,说明在调用表里的备注列内。这几天在学,可是不能解决,特来求助。

怎么今天狐朋们休假吗,怎么我第一个法帖?
[此贴子已经被作者于2008-11-5 11:10:43编辑过]

 回到顶部
帅哥,在线噢!
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部
帅哥,在线噢!
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/11/5 13:56:00 [只看该作者]

DataTables("订单").AddNew()("编号") = Max + i

可能不好理解,可以分为两句:

dim dr = DataTables("订单").AddNew()
dr("编号") = Max + i
[此贴子已经被作者于2008-11-5 13:58:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
gdtgl
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3025 威望:0 精华:0 注册:2008/9/13 10:49:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
gdtgl
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3025 威望:0 精华:0 注册:2008/9/13 10:49:00
  发帖心情 Post By:2008/11/5 13:58:00 [只看该作者]

图片点击可在新窗口打开查看原来老六出手了。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
gdtgl
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3025 威望:0 精华:0 注册:2008/9/13 10:49:00
  发帖心情 Post By:2008/11/5 14:02:00 [只看该作者]

我是将编号列要改为数据型来试。如果不改,要转换数据类型(max才有效果)

 回到顶部
帅哥,在线噢!
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/11/5 14:57:00 [只看该作者]

我也是,必须改的

 回到顶部
总数 17 1 2 下一页