专家坐堂-求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54622)

--  作者：fox-man
--  发布时间：2014/7/31 17:31:00
--  求助

DataColChanged 事件
If e.DataCol.Name = "数量" Then
     Dim dr As DataRow = DataTables("配送表").Find ( "配送单ID =\'"& e.DataRow("配送单ID").value & "\' And 产品 =\'"& e.DataRow("产品").value & "\' And 客户= \'"& e.DataRow("客户").value & "\'")
If dr("配送数量")< 0 Then
        Messagebox.Show("数量不准确,请重新输入数量!","提示")

        e.DataRow("数量")=0
        e.Cancel = True
    End If
End If

提示未找到类型string的公共成员 text,代码这样有错吗?

--  作者：Bin
--  发布时间：2014/7/31 17:32:00
--

If e.DataCol.Name = "数量" Then
     Dim dr As DataRow = DataTables("配送表").Find ( "配送单ID =\'"& e.DataRow("配送单ID") & "\' And 产品 =\'"& e.DataRow("产品") & "\' And 客户= \'"& e.DataRow("客户") & "\'")
If dr("配送数量")< 0 Then
        Messagebox.Show("数量不准确,请重新输入数量!","提示")
        e.DataRow("数量")=0
        e.Cancel = True
    End If
End If

--  作者：fox-man
--  发布时间：2014/7/31 17:35:00
--

大意了!感谢bin