以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  进入窗口后报错,提示调用目标异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91067)

--  作者:有点蓝
--  发布时间:2016/9/28 16:59:00
--  
If e.DataCol.Name="烤板"
    If e.DataRow("烤板")=True
        If e.DataRow("尺寸") > ""
            Dim dr As DataRow=DataTables("尺寸档案").find("尺寸=\'" & e.DataRow("尺寸") &"\'")
if dr isnot nothing then e.DataRow("单价")=dr("烤板价格")
            
        End If
    Else
        If e.DataRow("尺寸") >""
            Dim dr As DataRow=DataTables("尺寸档案").find("尺寸=\'" & e.DataRow("尺寸") &"\'")
            if dr isnot nothing then e.DataRow("单价")=dr("价格")
        End If
    End If
End If