共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教代码find 和 like
1楼
mr725 发表于：2009/3/16 18:25:00with 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’
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编辑过]
2楼
czy 发表于：2009/3/16 18:28:00包含请用*符号.
3楼
mr725 发表于：2009/3/16 18:33:00以下是引用czy在2009-3-16 18:28:00的发言：
包含请用*符号.
包含请用*符号.
一直用不好，具体位置还有 ' " & 摆放？，还有Max怎么表达，请帮完善上面的代码好吗？
4楼
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" )
5楼
mr725 发表于：2009/3/16 19:25:00谢谢您czy，我要打球去了，明天再来试一试，感觉没什么问题。
6楼
mr725 发表于：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编辑过]
7楼
mr725 发表于：2009/3/17 18:15:00
8楼
mr725 发表于：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("分号")
是那个*号的问题！
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编辑过]
共8 条记录, 每页显示 10 条, 页签:
[1]