主题：关于点击复制的问题

参考

http://www.foxtable.com/webhelp/scr/0656.htm

1、先删除全部空白行；

2、修改代码

If e.Col.name = "下单" Then
    If MessageBox.Show("确定下单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
        Dim t1 As Table = Tables("订单管理") '指定数据来源
        Dim t2 As DataTable = DataTables("平开门生产单") '指定数据接收表
        Dim cs1 = "订单号,门型,颜色,料型".split(",")
        Dim cs2 = "订单号,门型,颜色,料型".split(",") '指定数据接收列
       
        Dim ndr As DataRow = t2.find("订单号='" & t1.current("订单号") & "'")
        If ndr Is Nothing Then ndr = t2. AddNew
        For j As Integer = 0 To cs1.length-1
            ndr(cs2(j)) = t1.current(cs1(j))
        Next
       
    End If
End If