以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何从价格表中提取需要的数值填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30216)

--  作者:gohtml
--  发布时间:2013/3/23 9:53:00
--  如何从价格表中提取需要的数值填充

如何从价格表中自动提取需要的数值并填充至相应的单元格

见附件

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

 

整了半天没整好,只能寻求各位达人的帮助


--  作者:唐尸三摆手
--  发布时间:2013/3/23 9:57:00
--  
设计思路反了
--  作者:gohtml
--  发布时间:2013/3/23 10:01:00
--  
只能这样设计呀,因为使用电脑的人水平比较低,按照正常设计说看不明白
--  作者:唐尸三摆手
--  发布时间:2013/3/23 10:17:00
--  

那就逐行逐列判断吧

用find方法


--  作者:唐尸三摆手
--  发布时间:2013/3/23 10:29:00
--  

\'统计表如果是手动填写房型等信息的话,可以设置如下代码获得房价

 

\'datacolchanged事件

Select Case e.DataCol.name
    Case "房型","季节","时间段","类型"
        Dim ColName As String = e.DataRow("季节") & "_" & e.DataRow("时间段") & "_" & e.DataRow("类型")
        If DataTables("房价明细表").DataCols.Contains(ColName ) Then
            Dim dr As DataRow = DataTables("房价明细表").find("房型 = \'"& e.datarow("房型") &"\'")
            If dr IsNot Nothing Then
                e.DataRow("房价") = dr(ColName )
            End If
        End If
End Select


--  作者:gohtml
--  发布时间:2013/3/23 10:49:00
--  
非常感谢,要的就是这个效果