Foxtable(狐表)用户栏目专家坐堂 → FIND函数


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

主题:FIND函数

帅哥哟,离线,有人找我吗?
狐表编程总裁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
FIND函数  发帖心情 Post By:2019/10/17 22:29:00 [只看该作者]

Dim dr As DataRow = DataTables("订单明细").Find( dataArray(0) & " = '" & dataArray(1) & "' and " & dataArray(2) & " = '" & dataArray(3) & "'")

这个find函数里面的那个时什么意思呢? 没有看懂

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/18 8:53:00 [只看该作者]

比如接收的数据是:U|第一列|AD01|第二列|PD01
数据拆分后:Dim dataArray() As String = msg.TrimStart("U","|").Split("|")

dataArray(0) = "第一列"
dataArray(1) = "AD01"
dataArray(2) = "第二列"
dataArray(3) = "PD01"

放入find条件里,最终结果就等同于:
Dim dr As DataRow = DataTables("订单明细").Find("第一列 = 'AD01' and 第二列 = 'PD01'")

其实就是动态生成查询条件:http://www.foxtable.com/webhelp/topics/1284.htm

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


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/10/20 12:50:00 [只看该作者]

                            If dataArray.Length = 8 Then

                Dim dr As DataRow = DataTables("订单明细").Find( dataArray(0) & " = '" & dataArray(1) & "' and " & dataArray(2) & " = '" & dataArray(3) & "'")

                If dr IsNot Nothing Then 

                    dr(dataArray(4)) = dataArray(5)

                    dr(dataArray(6)) = dataArray(7)

                    DataTables("订单明细").Save()

                    ret = "!true"

                End If

            End If


是把5.6行是把数据写进订单明细表里面的意思吗


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/20 22:38:00 [只看该作者]

是的,查询到对应的行,然后把新值填入需要更新的列(单元格)中

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


加好友 发短信
等级:幼狐 帖子:82 积分:654 威望:0 精华:0 注册:2019/12/6 9:03:00
  发帖心情 Post By:2019/12/6 21:17:00 [只看该作者]

如果我有个任务表有两项id 和 人名,我想把id=01的人名那一项写为张三,这个要怎么用find写

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561095 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/6 22:14:00 [只看该作者]

Dim dr As DataRow = DataTables("任务表").Find("id='01'")
If dr IsNot Nothing Then dr("人名") = "为张三"

 回到顶部