以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  出库窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88154)
--  作者：大红袍
--  发布时间：2016/7/27 22:58:00
--  
Dim Cols1() As String = {"材料编号","材料名","规格"}
Dim Cols2() As String = {"材料编号","材料名称","规格"}
Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
    For Each c As String In Cols1
        If r.IsNull(c) Then
            msgbox(c & " 不能为空")
            Return
        End If
    Next
Next
For Each r As Row In t.GetCheckedRows
    Dim dr2 As Row = Tables("材料仓.明细").AddNew() \'数据接收列
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = r(Cols1(i))
    Next
Next
--  作者：Hyphen
--  发布时间：2016/7/28 9:21:00
--  
需要什么提示自己可以改msgbox内容

清空

For Each r As Row In t.GetCheckedRows
    Dim dr2 As Row = Tables("材料仓.明细").AddNew() \'数据接收列
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = r(Cols1(i))
 dr2("移动数量") = nothing
    Next
Next