以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 改成按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148649)
--  作者：sanny
--  发布时间：2020/4/12 9:29:00
--  [求助] 改成按钮代码

老师， 这是表属性中的， 如何改成按钮代码，谢谢。

 

If e.DataCol.Name = "PartNo" Then

        Dim dr As DataRow
        dr = DataTables("AssemblyTime").Find("[PartNo] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing
            e.DataRow("Assemblyhours") = dr("Hour")
           
        End If
    End If
--  作者：y2287958
--  发布时间：2020/4/12 9:59:00
--  
For Each dr As DataRow In DataTables("当前表").DataRows
    Dim fdr As DataRow = DataTables("AssemblyTime").Find("[PartNo] = \'" & dr("PartNo") & "\'")
    If fdr IsNot Nothing Then dr("Assemblyhours") = fdr("Hour")
Next
--  作者：有点蓝
--  发布时间：2020/4/12 21:52:00
--  
如果只想处理一行

dim r as row = Tables("某表").current
if r isnot nothing then
    Dim fdr As DataRow = DataTables("AssemblyTime").Find("[PartNo] = \'" & r("PartNo") & "\'")
    If fdr IsNot Nothing Then r("Assemblyhours") = fdr("Hour")
end if