主题：计算和统计

 图1:
此主题相关图片如下：订单明细.png

图2：
此主题相关图片如下：纸片整理.png

 

1、图2 中的的长和宽计算公式昨天红袍大哥已经说过了，现在就是这个公式写在那（是用图1的长、宽、高计算图2的长和宽），写在图2列的表达式中的话，图1的数据怎么引用？订单明细表和纸片整理是不是要先关联？

2、图2中的好几个列是和图1中相同的怎么在订单明细输入时，纸片整理就可以自动填上

好多问题呵呵呵，提多了怕自己理解不了，前年花9800多买了个管理软件使用着一直不理想，看到狐表后想自己试着做一个，一点编程都不懂呵呵

 

想把文件传上来传了好几次都失败不知道怎么回事

 红袍大师你给的链接是在列值发生变化后就执行的，我想在我整行数据录入完成后执行代码应该怎么写啊

 我在录入窗口有一个保存按钮的

编号是通过代码自动生成的有影响吗

 Dim htdh As WinForm.TextBox = e.Form.Controls("合同单号")
'Dim zxdm As WinForm.TextBox = e.Form.Controls("纸箱代码")
'Dim xxms As WinForm.TextBox = e.Form.Controls("箱型描述")
'If htdh.value="" Or zxdm.value="" Or xxms.value=""Then
'Dim ddsl As WinForm.Label = e.Form.Controls("订单数量")
If htdh.value=""Then
    MessageBox.Show("请完善订单信息!","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else
    
    MessageBox.Show("是否保存?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
    
    For Each dt As DataTable In DataTables
        dt.Save()
    Next
    Tables("订单明细").AddNew()
    For Each dt As DataTable In DataTables
        dt.Save()
    Next
    Tables("纸片整理").AddNew()
    
    
    
    If Tables("订单明细").Current("是否订片") = True Then
        Dim nma() As String = {"编号","材质","客户单位"}
        Dim nmb() As String = {"生产单号","纸片材质","纸箱客户"}
        Dim dr As DataRow = DataTables("纸片整理").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nma(i)) = Tables("订单明细").Current(nmb(i))
        Next
    End If
End If
帮忙看看，打死就是不执行第二段代码啊

是这个
此主题相关图片如下：错误.png

加过了，弹出值是合同单号的值