以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]换成按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60229)
--  作者：易服
--  发布时间：2014/11/20 14:27:00
--  [求助]换成按钮代码
 

DataColChanged 可以生效，做按钮代码不行

If e.DataCol.Name = "序号" Then

    Dim fdr As DataRow = DataTables("财政").find("乡镇= \'" & e.DataRow("乡镇") & "\' and 村名= \'" & e.DataRow("村名") & "\'and 组别= \'" & e.DataRow("组别") & "\'and 姓名 = \'" & e.DataRow("户名") & "\'")

    If fdr IsNot Nothing Then

        e.DataRow("序号")=fdr("序号")

    End If

End If

 
--  作者：jialihaha
--  发布时间：2014/11/20 14:28:00
--  
按钮代码是没有e的吧
--  作者：易服
--  发布时间：2014/11/20 14:33:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：按钮.jpg
图片点击可在新窗口打开查看
这样也不行
--  作者：jialihaha
--  发布时间：2014/11/20 14:37:00
--  
肯定不行呀，你要获取到你要的行或列
--  作者：有点甜
--  发布时间：2014/11/20 14:53:00
--  

Dim r As Row = Tables("表A").Current

Dim fdr As DataRow = DataTables("财政").find("乡镇= \'" & r("乡镇") & "\' and 村名= \'" & r("村名") & "\' and 组别= \'" & r("组别") & "\' and 姓名 = \'" & r("户名") & "\'")

If fdr IsNot Nothing Then
   
    r("序号")=fdr("序号")
   
End If


 
--  作者：易服
--  发布时间：2014/11/20 15:22:00
--  

Dim r As Row = Tables("兑现").Current
Dim fdr As DataRow = DataTables("财政").find("乡镇= \'" & r("乡镇") & "\' and 村名= \'" & r("村名") & "\' and 组别= \'" & r("组别") & "\' and 姓名 = \'" & r("户名") & "\'")
If fdr IsNot Nothing Then
    r("序号")=fdr("序号")
End If

以上代码只能返回当前行，目的是返回所有行，请再改一下。
--  作者：有点甜
--  发布时间：2014/11/20 15:24:00
--  
For Each r As Row In Tables("兑现").Rows
    Dim fdr As DataRow = DataTables("财政").find("乡镇= \'" & r("乡镇") & "\' and 村名= \'" & r("村名") & "\' and 组别= \'" & r("组别") & "\' and 姓名 = \'" & r("户名") & "\'")
    If fdr IsNot Nothing Then
        r("序号")=fdr("序号")
    End If
Next