Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口，确认按钮这样写，报错


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

主题：窗口，确认按钮这样写，报错
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		窗口，确认按钮这样写，报错  发帖心情 Post By：2016/6/17 21:29:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160617212751.jpg
图片点击可在新窗口打开查看


Dim r As Row = Tables("采购入库").Current
If r Is Nothing Then
    Return
End If
For Each c As Col In Tables("采购入库").Cols
    Sele ct Ca se c.Name
        Case "合同名称","合同编号","入库日期","供应商","供应商编号","入库批次"
            If r.IsNull(c.Name) Then
                MessageBox.Show("粉红框部分不可以为空!", "警告!", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
                Return
            Else
                Tables("采购入库").Current.Save()
                If Forms("采购入库").Opened=True Then
                    Dim cmd As New SQLCom mand
                    Dim dt As DataTable
                    cmd.C
                    cmd.CommandText = "Sele ct Distinct Year(入库日期) As 年, Month(入库日期) As 月,合同名称,供应商 From {采购入库}"
                    dt = cmd.ExecuteReader()
                    Dim tv As WinForm.TreeView = Forms("采购入库").Controls("TreeView1")
                    tv.StopRedraw
                    tv.Nodes.Clear
                    tv.BuildTree(dt,"合同名称|年|月|供应商","","合同名称 desc,年,月,月")
                    tv.Nodes.Insert("所有订单",0)
                    tv.ResumeRedraw
                    tv.Nodes(1).Expand()
                End If          
            End If
    End Sel ect
Next
e.Form.Close

改成这样又不出错了。为什么
图片点击可在新窗口打开查看此主题相关图片如下：111.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/6/19 18:01:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/6/19 18:00:00 [显示全部帖子]



我把代码改成这样，就可以了。
[此贴子已经被作者于2016/6/19 18:00:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		改成这样就可以了。  发帖心情 Post By：2016/6/19 18:01:00 [显示全部帖子]

改成这样就可以了。

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


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		错误依照，我都晕了。  发帖心情 Post By：2016/7/17 22:18:00 [显示全部帖子]

Dim r As Row = Tables("材料").Current
If r Is Nothing Then
    Return
Else
    For Each c As Col In Tables("材料").Cols
        Sele ct Case c.Name
            Case "材料名称","定额编码","分类","子分类","成本价","单位"
                If r.IsNull(c.Name) Then
  
                    MessageBox.Show("红字部分不可以为空!", "警告!", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
                    Return
                End If
        End Se lect
    Next
End If
Tables("材料").Save()
If Forms("材料").Opened= True Then
    Dim cmd As New SQ LCom mand
    Dim dt As DataTable
    cmd.Conne cti
    cmd.Comm andText = "SELE CT DIS TINCT 分类,子分类 From {材料}"
    dt = cmd.Exe cuteReader()
    If dt.DataRows.Count > 0 Then
        Dim tv As WinForm.TreeView
        tv =Forms("材料").Controls("TreeView1")
        tv.StopRedraw
        tv.Nodes.Clear
        tv.BuildTree(dt,"分类|子分类","","分类")
        tv.Nodes.Insert("所有商品",0)
        tv.ResumeRedraw
        tv.ExpandAll
    End If
End If
e.Form.Close
图片点击可在新窗口打开查看此主题相关图片如下：33.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/18 13:50:00 [显示全部帖子]

还是不行，同样的问题。

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


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/18 16:17:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/20 15:59:00 [显示全部帖子]

把关联，全部删除后，重新建关联后，试了一下，好像是好了。

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


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/20 16:21:00 [显示全部帖子]

 上面那个关联的问题。
我记得我以前也重新建过关联。
是不是常要出这个问题？有没有根治方法？？？
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/20 22:20:00 [显示全部帖子]

我试了一下，问题再次出现。我用调试messge.show,试了一下；是保存时，就弹错。不保存不弹错。关闭整体的窗口，保存时，也弹这个错误。 还有就是，第一条确认后，弹错，后面的都不弹错。打开系统 ，第一次弹错。

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


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/7/23 11:08:00 [显示全部帖子]

检查所有的含有表达式列并且有关联的表的表，表达式列的长度不能短于引用的父列的长度。。。目前看，试了一下，窗口-确定，没弹错了。

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