Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
猜是用:表的方法Compute(max(某编码)....),find....
最好是传文件,然后说明想得到什么样的要求.
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:调用记录.table |
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:管理项目16.table |
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
(可以在命令窗口运行,看下效果,是不是这个要求)