以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]:这段代码在表中执行没问题,怎么将这段代码写在按钮里面执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187931)

--  作者:Cloud
--  发布时间:2023/8/21 22:43:00
--  [求助]:这段代码在表中执行没问题,怎么将这段代码写在按钮里面执行
求大神指点:下面这段代码是写窗口表里面的,执行没问题,如果要写在窗口中的按钮里面执行应该怎么写。
If e.DataCol.Name = "设备" Then
    If e.NewValue Is Nothing Then
        e.DataRow("高低效率") = Nothing
    Else
        Dim dr2 As DataRow
        dr2 = DataTables("修改数据_机器代码").sqlFind("[设备] = \'" & e.NewValue & "\'")
        If dr2 IsNot Nothing Then
            e.DataRow("高低效率") = dr2("高低效率")
        End If
    End If
End If
谢谢


--  作者:有点蓝
--  发布时间:2023/8/21 22:52:00
--  
dim r as row = tabels("某窗口表").current
if r isnot nothing then
if r.isnull("设备") then
r("高低效率") = Nothing
else
        Dim dr2 As DataRow
        dr2 = DataTables("修改数据_机器代码").sqlFind("[设备] = \'" & r("设备") & "\'")
        If dr2 IsNot Nothing Then
            r("高低效率") = dr2("高低效率")
        End If
end if
end if

--  作者:Cloud
--  发布时间:2023/8/21 23:07:00
--  
谢谢,但好像只能刷新一行的数据,怎么将整个DATAtables表的数据全部刷新呢?
[此贴子已经被作者于2023/8/21 23:09:30编辑过]

--  作者:有点蓝
--  发布时间:2023/8/21 23:16:00
--  
遍历所有行:http://www.foxtable.com/webhelp/topics/1438.htm
--  作者:Cloud
--  发布时间:2023/8/22 22:23:00
--  
谢谢,问题已解决。