以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表事件转化为窗口按钮控制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148953)
--  作者：l1q2lq
--  发布时间：2020/4/19 18:48:00
--  [求助]表事件转化为窗口按钮控制
将以下表事件更改为按钮控制，应该怎么处理？请教各位老师
Select Case e.DataCol.name
    Case "入库批次"
        Dim dr As DataRow = DataTables("批次库存").Find("入库批次 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then
            dr = DataTables("批次库存").AddNew()
            dr("零件号") = e.DataRow("零件号")
            dr("入库批次") = e.DataRow("入库批次")
            dr("零件批次") = e.DataRow("零件批次")
            dr("部门") = e.DataRow("部门")
        Else
            dr("零件号") = e.DataRow("零件号")
        End If
End Select

Select Case e.DataCol.name
    Case "入库数量"
        Dim pr As DataRow
        pr = DataTables("批次库存").Find("零件批次 = \'" & e.DataRow("零件批次") & "\'")
        If pr IsNot Nothing Then
            DataTables("批次库存").DataCols("零件批次").RaiseDataColChanged(pr)
        End If
        Dim pr1 As DataRow
        pr1 = DataTables("辅料库存").Find("零件部门 = \'" & e.DataRow("零件部门") & "\'")
        If pr1 IsNot Nothing Then
            DataTables("辅料库存").DataCols("零件部门").RaiseDataColChanged(pr1)
        End If        
End Select
--  作者：l1q2lq
--  发布时间：2020/4/19 21:16:00
--  
请老师帮下忙
--  作者：l1q2lq
--  发布时间：2020/4/19 22:50:00
--  
请老师帮下忙
--  作者：有点蓝
--  发布时间：2020/4/19 23:14:00
--  
dim r as row = tabels("某表").current
if r isnot nothing then
        Dim dr As DataRow = DataTables("批次库存").Find("入库批次 = \'" & r("入库批次") & "\'")
        If dr Is Nothing Then
            dr = DataTables("批次库存").AddNew()
            dr("零件号") = r("零件号")
            dr("入库批次") = r("入库批次")
            dr("零件批次") = r("零件批次")
            dr("部门") = r("部门")
        Else
            dr("零件号") = r("零件号")
        End If
end if