Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载失败


  共有2347人关注过本帖树形打印复制链接

主题：加载失败
帅哥哟，离线，有人找我吗？
sdscen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：2398 威望：0 精华：0 注册：2011/8/8 0:50:00 		加载失败  发帖心情 Post By：2016/10/18 14:34:00 [只看该作者]

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

 

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

[此贴子已经被作者于2016/10/18 17:25:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 15:09:00 [只看该作者]

窗口加载代码看看

 回到顶部
帅哥哟，离线，有人找我吗？
sdscen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：2398 威望：0 精华：0 注册：2011/8/8 0:50:00 		  发帖心情 Post By：2016/10/18 17:25:00 [只看该作者]

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

 

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 17:47:00 [只看该作者]

关联表没有必要load，明细表的加载参考：http://www.foxtable.com/webhelp/scr/2228.htm

然后代码改为
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
    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
 回到顶部
帅哥哟，离线，有人找我吗？
sdscen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：2398 威望：0 精华：0 注册：2011/8/8 0:50:00 		  发帖心情 Post By：2016/10/18 17:50:00 [只看该作者]

但它提示的是DataTables("销售出库单表").Load()这个表加载失败

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 20:04:00 [只看该作者]

是不是没有连接到正确的数据源？

上传你的例子看看

 回到顶部
帅哥哟，离线，有人找我吗？
sdscen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：2398 威望：0 精华：0 注册：2011/8/8 0:50:00 		  发帖心情 Post By：2016/10/18 20:49:00 [只看该作者]

我就传一个窗口可以吗
我检查过，数据源和表都是正常的
如果不正常的话，出显错误提示后就正常了，怎么解释
我把以前备份的打开看了，也是一样的问题，但以前没有这种问题，跟SQL有关系吗
能远程帮我看看吗，上传不一定能看得出问题
[此贴子已经被作者于2016/10/18 20:52:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 21:16:00 [只看该作者]

明天联系客服远程看看

 回到顶部
帅哥哟，离线，有人找我吗？
sdscen
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：2398 威望：0 精华：0 注册：2011/8/8 0:50:00 		  发帖心情 Post By：2016/10/18 21:47:00 [只看该作者]

好的，多谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04700 秒, 4 次数据查询