Foxtable(狐表) → 用户栏目 → 专家坐堂 → 记录数量大数据库使用什么方式


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

主题：记录数量大数据库使用什么方式
美女呀，离线，留言给我吧！
ganlan
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是为了更新后台所有的数据，用了下面的代码在dataColchanged事件中，重置列，只有加载的更新数据了，没加载的数据还是没变

If e.DataCol.Name = "供应商ID" Then 
      If e.NewValue Is Nothing Then
         e.DataRow("供应商") = Nothing 
   Else 
   Dim gym As DataRow = e.DataRow
   Dim gyl As DataRow 
       gyl = DataTables("目录").SQLFind("[供应商ID] = '" & e.NewValue & "'")
   If gyl IsNot Nothing Then 
           gym("供应商") = gyl("供应商名称") 
   Else
           gym("供应商")  = "无记录"
End If
End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

参考：http://www.foxtable.com/webhelp/topics/0690.htm

建议网上搜索先学习一些sql的基本语法
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

意思是如果要后台的数据都更新，只能用SQL执行SQL代码，不能通过dataColchanged事件中来实现是吗

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


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

是的

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


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

如果经常需要执行的代码，可以通过设置按钮，把SQL代码设置在按钮上，这样来实现是吧

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


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

可以的

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


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

再请教个问题，通过FIND查找到记录，填入对应列的数据，来处理后台数据，没加载的数据，需要用什么代码呢。我这个好像实现不了后台数据


If e.DataCol.Name = "供应商ID" Then 
      If e.NewValue Is Nothing Then
         e.DataRow("供应商") = Nothing 
   Else 
   Dim gym As DataRow = e.DataRow
   Dim gyl As DataRow 
       gyl = DataTables("目录").SQLFind("[供应商ID] = '" & e.NewValue & "'")
   If gyl IsNot Nothing Then 
           gym("供应商") = gyl("供应商名称") 
   Else
           gym("供应商")  = "无记录"
End If
End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/25 16:48:00 [只看该作者]

如果是指DataTables("目录")没加载数据，这个用法肯定是可以的，应该是没有符合条件的数据，或者数据有问题对不上

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


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

不是DataTables("目录")，是所在这个表

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/25 16:51:00 [只看该作者]


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