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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132308)

--  作者：爱相随
--  发布时间：2019/3/19 15:22:00
--  窗口按钮代码

下面是窗口中按钮的代码，保存时提示错误
For Each r As Row In CurrentTable.Rows
If e.DataCol.Name = "科目代码" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("凭证明细表").Find("科目代码 = \'" & e.DataRow("科目代码") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
Messagebox.Show("科目已使用,不能取消启用!")
Else
dr("启用") = False
End If
End If
Next

提示的错误为：“DataCol”不是“ControlEventArgs”的成员

--  作者：有点甜
--  发布时间：2019/3/19 15:48:00
--
For Each r As Row In CurrentTable.Rows
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("凭证明细表").Find("科目代码 = \'" & r("科目代码") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        Messagebox.Show("科目已使用,不能取消启用!")
    Else
        dr("启用") = False
    End If
Next

--  作者：爱相随
--  发布时间：2019/3/19 16:50:00
--
感谢老师，谢谢！！