以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  这个语句该怎么改？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67792)

--  作者：jinzhengbe --  发布时间：2015/5/3 1:14:00 --  这个语句该怎么改？   [此贴子已经被作者于2015/5/5 23:53:11编辑过]

--  作者：大红袍 --  发布时间：2015/5/3 21:03:00 --   Select Case e.DataCol.Name         Case "cord"         Dim dr As DataRow=e.DataRow.getparentrow("product")         \'Dim dr As DataRow = DataTables("product").Find("[cord] = \'" & e.NewValue & "\'")         If dr IsNot Nothing Then             If dr("sell") > 0 Then                 e.DataRow("name") = dr("shangpinming")                 e.DataRow("markprice") = dr("markprice")                             Else                                 messagebox.show("无库存")             End If         Else                         messagebox.show("没有此商品")             forms("入库").open         End If End Select