以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么取子表的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89370)
--  作者：jinzhengbe
--  发布时间：2016/8/20 0:48:00
--  怎么取子表的值
  Dim d As Row = Tables("weixindanhao.weixin.weixinminxi").Current

  这个黄色的位置本来想要娶 子表的值  请问改怎么写字，非常感谢


  Dim K As String = e.DataRow("vipp")
    Select Case K
        Case "一般"
          e.DataRow("price")=d("price1")
        Case "vip"
         e.DataRow("price")=d("vip")
        Case "cvp"
         e.DataRow("price")=d("cvp")
    End Select

End If
[此贴子已经被作者于2016/8/20 0:50:36编辑过]
--  作者：2900819580
--  发布时间：2016/8/20 8:12:00
--  
Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
  Dim K As String = e.DataRow("vipp")
    Select Case K
        Case "一般"
          e.DataRow("price")=t.Current("price1")
        Case "vip"
         e.DataRow("price")=t.Current("vip")
        Case "cvp"
         e.DataRow("price")=t.Current("cvp")
    End Select

试一下
--  作者：Hyphen
--  发布时间：2016/8/20 9:19:00
--  
Dim d As Row = Tables("weixinminxi").Current
if d isnot nothing then
......
endif