以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表事件移到控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141414)
--  作者：有点蓝
--  发布时间：2019/9/28 15:44:00
--  
dim r as row = tables("某表").current
if r is nothing then return
Dim dr As DataRow
        dr = DataTables("配件库存表").SQLFind("[材料编码] = \'" & r("成品编码") & "\'")
        If dr Is Nothing
            dr = DataTables("配件库存表").addnew
            dr("材料编码") = r("成品编码")
        End If