- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教代码find 和 like (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2123)
-- 发布时间：2009/3/16 18:25:00
-- 请教代码find 和 like
with DataTables("flxsb")
dr = DataTables("flxsb").find ("年份 = \'" & currenttable(0,"年份") & " \' And 月份 = \'" & currenttable(0,"月份") & " \' and 编号 like \'ZH\' " and 分号 = “flxsb”表中最大的（整数型）)
1、查找“flxsb”中，与当前表当前行的年份、月份、编号中含‘ZH’、且分号 为最大的那行。
说明：flxsb表中有N个带‘ZH\'的编号，分号 是含有\'ZH\'编号的N个小序号（相同年月和有\'ZH\'的个数）。
2、用findrow 提示：‘findrow’ is not a menber of ‘datatable’
[此贴子已经被作者于2009-3-16 18:29:29编辑过]
-- 发布时间：2009/3/16 18:28:00
--
包含请用*符号.
-- 发布时间：2009/3/16 18:33:00
-- 如何使两个统计表进行运算？
以下是引用czy在2009-3-16 18:28:00的发言：
包含请用*符号.
包含请用*符号.
一直用不好，具体位置还有 \' " & 摆放？，还有Max怎么表达，请帮完善上面的代码好吗？
-- 发布时间：2009/3/16 19:13:00
--
我是半瓶醋来着，没有文件还真写不出代码。
看看是不是这个意思？
Dim dt As DataTable = DataTables("flxsb")
Dim dr,dr1 As DataRow
dr = DataTables("当前表").DataRows(0)
dr1 = dt.find("年份 = \'" & dr("年份") & " \' And 月份 = \'" & dr("月份") & " \' and 编号 like \'*ZH*\' And [分号] = \'" & dr("分号") & "\'","分号 Desc" )
-- 发布时间：2009/3/16 19:25:00
--
谢谢您czy，我要打球去了，明天再来试一试，感觉没什么问题。
-- 发布时间：2009/3/17 17:48:00
--
以下是引用czy在2009-3-16 19:13:00的发言：
我是半瓶醋来着，没有文件还真写不出代码。
看看是不是这个意思？
Dim dt As DataTable = DataTables("flxsb")
Dim dr,dr1 As DataRow
dr = DataTables("当前表").DataRows(0)
dr1 = dt.find("年份 = \'" & dr("年份") & " \' And 月份 = \'" & dr("月份") & " \' and 编号 like \'*ZH*\' And [分号] = \'" & dr("分号") & "\'","分号 Desc" )
我是半瓶醋来着，没有文件还真写不出代码。
看看是不是这个意思？
Dim dt As DataTable = DataTables("flxsb")
Dim dr,dr1 As DataRow
dr = DataTables("当前表").DataRows(0)
dr1 = dt.find("年份 = \'" & dr("年份") & " \' And 月份 = \'" & dr("月份") & " \' and 编号 like \'*ZH*\' And [分号] = \'" & dr("分号") & "\'","分号 Desc" )
【and 编号 like \'*ZH*\' 】不起作用＝会提示错误！～ 删除它 代码不会出错！
我的目的是在表A中（即代码中的当前表）要取得最大号的 含‘ZH或MH’的编号：ZH-006 或 MH-004 ，见图：
此主题相关图片如下：未命名1.jpg
[此贴子已经被作者于2009-3-17 17:51:48编辑过]
-- 发布时间：2009/3/17 18:15:00
--
给个例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:like的使用.table |
[此贴子已经被作者于2009-3-17 18:16:26编辑过]
-- 发布时间：2009/3/17 18:31:00
--
这个ok了！～～～
Dim dt As DataTable = DataTables("flxsb")
Dim dr1 As DataRow
dr1 = dt.find("年份 = \'" & tables("表A").current("年份")& " \' And 月份 = \'" & tables("表A").current("月份")& " \' and 编号 like \'*" & tables("表A").current("选类")& "*\'","分号 Desc" )
Tables("表A").current("编号") = dr1("编号")
Tables("表A").current("分号") = dr1("分号")
是那个*号的问题！
[此贴子已经被作者于2009-3-17 18:32:01编辑过]