Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共17 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

1楼
mr725 发表于: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编辑过]
2楼
kylin 发表于:2008/11/1 18:18:00
需要事件编码
做个项目例子上来吧
3楼
gdtgl 发表于:2008/11/2 2:12:00

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

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

4楼
mr725 发表于:2008/11/5 10:58:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:调用记录.table


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

怎么今天狐朋们休假吗,怎么我第一个法帖?
[此贴子已经被作者于2008-11-5 11:10:43编辑过]
5楼
狐狸爸爸 发表于: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楼
狐狸爸爸 发表于:2008/11/5 13:56:00
DataTables("订单").AddNew()("编号") = Max + i

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

dim dr = DataTables("订单").AddNew()
dr("编号") = Max + i
[此贴子已经被作者于2008-11-5 13:58:25编辑过]
7楼
gdtgl 发表于: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编辑过]
8楼
gdtgl 发表于:2008/11/5 13:58:00
图片点击可在新窗口打开查看原来老六出手了。。。。
9楼
gdtgl 发表于:2008/11/5 14:02:00
我是将编号列要改为数据型来试。如果不改,要转换数据类型(max才有效果)
10楼
狐狸爸爸 发表于:2008/11/5 14:57:00
我也是,必须改的
共17 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 4 queries.