Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载


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

主题：加载
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		加载  发帖心情 Post By：2020/11/15 18:06:00 [只看该作者]

Select Case e.DataCol.Name
    Case "商品条码"
        DataTables("FRID标签").LoadFilter = "商品条码 = '" & e.newvalue & "'"
        DataTables("FRID标签").Load
        Dim dr1 As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr1 = DataTables("FRID标签").Find("[商品条码] = '" & e.DataRow("商品条码") &  "'")
        If dr1 IsNot Nothing Then  '如果找到了同名的产品行,也就是dr不是Nothing
            dr1("商品备注") = e.DataRow("销售退回")
            DataTables("FRID标签").Save()
        End If
End Select


加载商品条码1=1，商品条码2=2，..........还保留1和2......追加数据
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

"FRID标签"表其实可以不要加载数据，直接后台查询即可：dr1 = DataTables("FRID标签").SQLFind("[商品条码] = '" & e.DataRow("商品条码") &  "'")

如果要追载数据，参考：http://www.foxtable.com/webhelp/topics/2276.htm
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/15 21:18:00 [只看该作者]

不加载可以刷新列吗

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

刷新列是什么意思？不加载的数据界面肯定是看不到的

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/15 21:59:00 [只看该作者]

表a加载表b，表b第一列刷新对应表a的第一列，所以我现在表a要输入十行商品条码，表b要对应加载十行，然后表a十行第一列输入内容，表b第一列全部刷新内容

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果表B需要显示数据，就追载数据吧

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/15 22:09:00 [只看该作者]

Dim id As Integer = DataTables("表A").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("表A").AppendLoad(Filter, False)

我要追载商品条码列要什么改
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


DataTables("表A").removefor("商品条码 = '" & e.newvalue & "'")
DataTables("表A").AppendLoad("商品条码 = '" & e.newvalue & "'")
 回到顶部
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 次数据查询