主题：加载失败

刚进入进销存第一次打开任何一个有加载的窗体回出现下面的错误

 

NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：加载[销售收款单]失败!
详细错误信息：
未能启用约束。一行或多行中包含违反非空、唯一或外键约束的值。

出现错误后再打开就不会出现错误，查不出问题，是不是SQL出现了问题

 

希望有高手可以远程帮我看看，非常感谢

QQ:1041486177

 

这是销售出库的窗口加载代码

谢谢，

Dim ym As WinForm.TextBox = e.Form.Controls("页码")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim hjms As WinForm.TextBox = e.Form.Controls("合计米数")
DataTables("销售出库单表").LoadFilter = " 审核状态 = 0 "
DataTables("销售出库单表").Load()
If Tables("销售出库单表").Rows.Count >0 Then
    Tables("销售出库单表.销售出库单明细表").DataTable.LoadFilter = "销售单号 = '" & Tables("销售出库单表").Current("销售单号") & "'"
    Tables("销售出库单表.销售出库单明细表").DataTable.Load
    Dim kcxs As WinForm.TextBox = e.Form.Controls("库存显示")
    If Tables("销售出库单表.销售出库单明细表").Rows.Count > 0 Then
        je.Value = Tables("销售出库单表.销售出库单明细表").Compute("sum([金额])")
        hjms.Value = Tables("销售出库单表.销售出库单明细表").Compute("sum([米数])")
        Dim dr1 As DataRow
        dr1 = DataTables("库存表").SQLFind("产品编号 = '" & Tables("销售出库单表.销售出库单明细表").Current("产品编号") & "'")
        If dr1 IsNot Nothing Then
            kcxs.Value = "现在库存:" & dr1("库存米数") + dr1("未过账米数") & "米"
        Else
            kcxs.Value = "现在库存:" & 0
        End If
    Else
        kcxs.Value = "现在库存:" & 0
    End If
    Tables("销售出库单表.销售出库单明细表").AllowEdit =False
    Tables("销售出库单表").AllowEdit = False
   
    ym.Value = "还有" & " '" & Tables("销售出库单表").Rows.Count & "' " & "张单据未审核." & "现在是第" & " '" & Tables("销售出库单表").Current.Index +1 & "' " & "张"
   
End If