加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3030人关注过本帖树形打印复制链接主题：加载

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：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 & "'")

下一主题 >> << 上一主题

主题：加载