Foxtable(狐表) → 用户栏目 → 专家坐堂 → 以是否查找到记录作为条件判断


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

主题：以是否查找到记录作为条件判断
美女呀，离线，留言给我吧！
ganlan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		以是否查找到记录作为条件判断  发帖心情 Post By：2021/6/20 14:52:00 [显示全部帖子]

If e.DataCol.Name = "销售订单号" Then 
      If e.NewValue Is Nothing Then 
         e.DataRow("主订单号") = e.DataRow("订单号")
Else
  Dim zw As DataRow 
       zw = DataTables("本表").Find("[订单号] = '" & e.NewValue & "'")（自身所在的这个表）
   If zw IsNot Nothing Then 
            e.DataRow("主订单号") = e.DataRow("销售订单号")

Else
    e.DataRow("主订单号") = e.DataRow("订单号")
End If
End If
End If

如果销售订单列空白，就等于本表的订单号，否则在订单号列找到，就等于这条记录所在的销售订单号，否则就等于订单号
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 16:44:00 [显示全部帖子]

这个弄了，好卡，还会死机不知道哪里出错了

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 21:21:00 [显示全部帖子]

一样的数据，但是别的列重置的时候就不会卡呀

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 21:25:00 [显示全部帖子]

没设置之前，导入16000条数据可能就1-2分钟，设置了以后导入1分钟500条，导16000我需要等半小时，有更好的代码可以做到吗，想在主订单列写入，如果销售订单列空白，就等于本表的订单号，否则在订单号列找到，就等于这条记录所在的销售订单号，否则就等于订单号

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 21:58:00 [显示全部帖子]

不仅仅判断销售订单号是不是空白的，还要判断销售订单号，在订单号的列是否存在，如果存在就填销售订单号，如果不存在就填订单号

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 22:18:00 [显示全部帖子]

哦，If e.DataRow.isnull("销售订单号")  Then这个语句是什么意思呀，不是说销售订单号如果是空值，则e.DataRow("主订单号") = e.DataRow("订单号")吗

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 22:45:00 [显示全部帖子]

否则就e.DataRow("主订单号") = e.DataRow("销售订单号")，我需要的结果不是这样的，这里没有判断销售订单号在不在订单号的列，
[此贴子已经被作者于2021/6/21 8:55:06编辑过]
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 22:50:00 [显示全部帖子]

832278077208这个订单号在订单号列是找不到的，所以主订单号要填的是订单号的**4401398这个，而不是填销售订单号，订单号和销售订单号不一样的

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 23:08:00 [显示全部帖子]

  Dim zw As DataRow 
       zw =.Find("[订单号] = '" & e.NewValue & "'")
   If zw IsNot Nothing Then 
            e.DataRow("主订单号") = e.DataRow("销售订单号")

销售订单号在订单号列找，找到的话，主订单号=销售订单号，找不到就主订单号=订单号，订单号和销售订单号是不同的列
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/20 23:12:00 [显示全部帖子]

没看懂什么意思:销售订单号在不在订单号的列具体指什么？


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210620231013.png
图片点击可在新窗口打开查看
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询