Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助


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

主题：求助
帅哥哟，离线，有人找我吗？
674140303
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		求助  发帖心情 Post By：2016/5/27 11:30:00 [只看该作者]


想从入库表中提取单位与产品字段自动添加到库存表中，麻烦给改一下下面的代码。


If MainTable.Name = "库存" Then
    DataTables("库存").DataRows.clear()
    Dim  Arys As List(Of String())
    Arys = DataTables("入库").GetValues("单位|产品")
    Dim dr As DataRow = DataTables("库存").addnew()
    dr("单位|产品") = Arys
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/27 12:09:00 [只看该作者]

If MainTable.Name = "库存" Then
    DataTables("库存").DataRows.clear()
    Dim  Arys As List(Of String())
    Arys = DataTables("入库").GetValues("单位|产品")
    For Each ary() As String In arys
        Dim dr As DataRow = DataTables("库存").addnew()
        dr("单位") = Ary(0)
        dr("产品") = Ary(1)
    Next
End If

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


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		  发帖心情 Post By：2016/5/27 12:14:00 [只看该作者]

谢谢，还有一个问题：
    按这个代码执行，每次切换到库存表，都会重新核算所有的行，能不能加一个判
断，已经存在的行就不用重新增加，只增加新增的行？如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/27 12:18:00 [只看该作者]

If MainTable.Name = "库存" Then
    Dim  Arys As List(Of String())
    Arys = DataTables("入库").GetValues("单位|产品")
    For Each ary() As String In arys
        Dim dr As DataRow = DataTables("库存").find("单位 = '" & ary(0) & "' and 产品 = '" & ary(1) & "'")
        If dr Is Nothing Then DataTables("库存").addnew()
        dr("单位") = Ary(0)
        dr("产品") = Ary(1)
    Next
End If

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


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		  发帖心情 Post By：2016/5/27 13:40:00 [只看该作者]

谢谢

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


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		  发帖心情 Post By：2016/5/27 14:10:00 [只看该作者]

加了判断条件的代码不能执行。错误显示为：

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2016.5.13.1
错误所在事件：项目,MainTableChanged
详细错误信息：
Object reference not set to an instance of an object.
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/27 14:14:00 [只看该作者]

4楼代码不可能报错，请认真测试。

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


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		  发帖心情 Post By：2016/5/28 12:37:00 [只看该作者]

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2016.5.13.1
错误所在事件：项目,MainTableChanged
详细错误信息：
未将对象引用设置到对象的实例。


我把2楼的代码复制到库存表的MainTableChanged中，执行正常，我用4楼的代码替换掉2楼的代码，执行显示上面的提示，这是为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
674140303
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：277 威望：0 精华：0 注册：2016/4/15 10:38:00 		  发帖心情 Post By：2016/5/28 12:46:00 [只看该作者]

If MainTable.Name = "库存" Then
    Dim  Arys As List(Of String())
    Arys = DataTables("入库").GetValues("单位|产品")
       MessageBox.show(1)
    For Each ary() As String In arys
       MessageBox.show(2)
        Dim dr As DataRow = DataTables("库存").find("单位 = '" & ary(0) & "' and 产品 = '" & ary(1) & "'")
        If dr Is Nothing Then DataTables("库存").addnew()
      messagebox.show(3)
        dr("单位") = Ary(0)
        messagebox.show(4)
        dr("产品") = Ary(1)
        messagebox.show(5)
    Next
End If


用这个方法测试，前三步能正常显示，第四步就显示不了了。
       
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/5/28 12:52:00 [只看该作者]

If MainTable.Name = "库存" Then
    Dim  Arys As List(Of String())
    Arys = DataTables("入库").GetValues("单位|产品")
       MessageBox.show(1)
    For Each ary() As String In arys
       MessageBox.show(2)
        Dim dr As DataRow = DataTables("库存").find("单位 = '" & ary(0) & "' and 产品 = '" & ary(1) & "'")
        If dr Is Nothing Then
       dr =  DataTables("库存").addnew()
      messagebox.show(3)
        dr("单位") = Ary(0)
        messagebox.show(4)
        dr("产品") = Ary(1)
        messagebox.show(5)
    Next
End If
 回到顶部
总数 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.04297 秒, 4 次数据查询