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


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

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


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/21 9:57:00 [只看该作者]

我说的本表指的是当前表中

 回到顶部
帅哥，在线噢！
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/21 9:58:00 [只看该作者]

可能这个原因，看看：http://www.foxtable.com/webhelp/topics/2225.htm

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


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/21 10:12:00 [只看该作者]

有点深奥，没看懂，如果用list我需要怎么修改我的代码会好点呀

 回到顶部
帅哥，在线噢！
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/21 10:29:00 [只看该作者]

只是让您看看，什么的逻辑也用不了这种，建议还是使用SQL吧

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


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/21 10:45:00 [只看该作者]

不知道SQL怎么用

 回到顶部
帅哥，在线噢！
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/21 10:47:00 [只看该作者]


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


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/21 11:08:00 [只看该作者]

主要不明白你说的先执行后执行，意思是，我每次都需要先输入先执行的代码，然后再去执行后执行的代码是吗，这样我就不用每次都去这样输代码了，如果是不懂代码的人操作这个表呢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/21 11:10:00 [只看该作者]

不需要datacolchanged事件

先导入数据，再按顺序执行2条SQL语句
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/7/15 11:17:00 [只看该作者]

换个思路，终于搞好了
If e.DataCol.Name = "销售订单号" Then 
   If e.NewValue Is Nothing Then 
      e.DataRow("主订单号") = e.DataRow("订单号")
   Else 
   Dim zd As DataRow
       zd = DataTables("本表").Find("[订单号] = '" & e.NewValue & "'")
    If zd IsNot Nothing Then
    Dim zdh As Integer = Tables("本表").FindRow(zd)
    If zdh >= 0 Then
        e.DataRow("主订单号") = e.DataRow("销售订单号")
     End If
     Else
     e.DataRow("主订单号") = e.DataRow("订单号")
End If
End If
End If
 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询