以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调用的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12913)

--  作者:blackzhu
--  发布时间:2011/9/20 13:05:00
--  调用的问题
  表A  有两列

  直角(逻辑列)        加工单价



 表B 有一列

  直角
  0.5

  我在表A的直角逻辑列勾选,然后将表B 相对应的直角列的价格填入表A的加工单价中去.


代码怎么写?

--  作者:czy
--  发布时间:2011/9/20 13:35:00
--  
If e.DataCol.Name = "直角" AndAlso e.DataRow("直角") = True Then
    Dim dr As DataRow = DataTables("表B").Find("直角 > 0")
    If dr IsNot Nothing Then
        e.DataRow("加工单价") = dr("直角")
    End If
End If

--  作者:blackzhu
--  发布时间:2011/9/20 13:45:00
--  
谢谢