以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  各位老大又来了！！！帮帮解决一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14281)
--  作者：雨中的泪
--  发布时间：2011/11/14 16:26:00
--  各位老大又来了！！！帮帮解决一个问题

1、通过点击计算窗口中的计算按钮，实现“补偿计算表”的“补偿标准金额”列根据“补偿标准代码”列内的值到“标准表”取相应的值！！！

 

 

谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:取数.table
--  作者：狐狸爸爸
--  发布时间：2011/11/14 16:30:00
--  

今时今日，你还提这种问题？

 

For Each dr1 As DataRow In DataTables("补偿计算").DataRows
    Dim dr2 As DataRow  =  DataTables("标准表").Find("补偿标准代码 = \'" & dr1("补偿标准代码") & "\'")
    If dr2 IsNot Nothing Then
        dr1("补偿标准金额") = dr2("补偿标准金额")
    End If
Next
--  作者：雨中的泪
--  发布时间：2011/11/14 16:34:00
--  
没办法有时就是搞不懂呀