以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158307)

--  作者:qazlinle6
--  发布时间: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......追加数据

--  作者:有点蓝
--  发布时间:2020/11/15 20:46:00
--  
"FRID标签"表其实可以不要加载数据,直接后台查询即可:dr1 = DataTables("FRID标签").SQLFind("[商品条码] = \'" & e.DataRow("商品条码") &  "\'")

如果要追载数据,参考:http://www.foxtable.com/webhelp/topics/2276.htm

--  作者:qazlinle6
--  发布时间:2020/11/15 21:18:00
--  
不加载可以刷新列吗
--  作者:有点蓝
--  发布时间:2020/11/15 21:53:00
--  
刷新列是什么意思?不加载的数据界面肯定是看不到的
--  作者:qazlinle6
--  发布时间:2020/11/15 21:59:00
--  
表a加载表b,表b第一列刷新对应表a的第一列,所以我现在表a要输入十行商品条码,表b要对应加载十行,然后表a十行第一列输入内容,表b第一列全部刷新内容
--  作者:有点蓝
--  发布时间:2020/11/15 22:05:00
--  
如果表B需要显示数据,就追载数据吧
--  作者:qazlinle6
--  发布时间:2020/11/15 22:09:00
--  
Dim id As Integer = DataTables("表A").Compute("Max(_Identify)")
Dim
 Filter As String = "[_Identify] > " & id
DataTables
("表A").AppendLoad(FilterFalse
)

我要追载商品条码列要什么改

--  作者:有点蓝
--  发布时间:2020/11/15 22:22:00
--  

DataTables("表A").removefor("商品条码 = \'" & e.newvalue & "\'")
DataTables("表A").AppendLoad("商品条码 = \'" & e.newvalue & "\'")