Foxtable(狐表) → 用户栏目 → 专家坐堂 → 假设录入了11,22,33三个序列号，那么入库单为“未领用”状态，那么如何实现这三个序列号，分成三条不同的记录呢？也就是生成三行数据呢？


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

主题：假设录入了11,22,33三个序列号，那么入库单为“未领用”状态，那么如何实现这三个序列号，分成三条不同的记录呢？也就是生成三行数据呢？
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 10:21:00 [显示全部帖子]

3、

 

Select Case e.DataCol.Name
    Case "序列号"
        If e.NewValue IsNot Nothing Then
            SystemReady = False
            Dim Multi As String = e.DataRow("序列号")
            Dim ary() As String = Multi.Split(",")
            e.DataRow("序列号") = ary(0)
            For i As Integer = 1 To ary.Length - 1
                Dim nr As Row = Tables("入库单_table1").AddNew()
                nr("序列号") = ary(i)
            Next
           
            SystemReady = True
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 10:21:00 [显示全部帖子]

2、放在Datacolchanged事件，或者保存按钮里面。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 10:29:00 [显示全部帖子]

以下是引用李孝春在2015/5/4 10:27:00的发言：

序列号列正常了 但是其他公共数据还是空白 该怎么赋值为第一个对应的值呢？也就是说1 2 3 4 5 序列号不同 但是其他数据值是相同的

 

其它数据的值，你就不能自己赋值一下？怎么说你也是弄几年foxtable了啊

 

nr("产品") = e.DataRow("产品")

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 11:23:00 [显示全部帖子]

加一句

 

nr("操作类型") = "入库操作"   


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 11:38:00 [显示全部帖子]

如果要处理后台的数据，要用SqlReplaceFor

 

DataTables("库存表").ReplaceFor("是否领取", "已领取", "序列号 in ('" & "'" & e.DataRow("序列号").Replace(",", "','") & "') and 操作类型 = '入库操作'")

DataTables("库存表").SqlReplaceFor("是否领取", "已领取", "序列号 in ('" & "'" & e.DataRow("序列号").Replace(",", "','") & "') and 操作类型 = '入库操作'")
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 11:50:00 [显示全部帖子]

DataTables("库存表").ReplaceFor("是否领取", "已领取", "序列号 in ('" & e.DataRow("序列号").Replace(",", "','") & "') and 操作类型 = '入库操作'")

DataTables("库存表").SqlReplaceFor("是否领取", "已领取", "序列号 in ('" & e.DataRow("序列号").Replace(",", "','") & "') and 操作类型 = '入库操作'")
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/4 12:00:00 [显示全部帖子]

以下是引用youkacard在2015/5/4 11:58:00的发言：
那个动画是用什么软件录制的

 

http://www.baidu.com/baidu?wd=gif+%C6%C1%C4%BB&tn=monline_4_dg

 

[此贴子已经被作者于2015/5/4 12:01:07编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 5 次数据查询