Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动生成行


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

主题：自动生成行
美女呀，离线，留言给我吧！
13775189031
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		自动生成行  发帖心情 Post By：2019/7/15 15:58:00 [只看该作者]

请教
If e.Col.Name = "处置_代用" AndAlso e.Row(e.Col.Name) = True Then
    Dim cr As Row = e.Row
    Dim nr As Row = e.Table.addnew
    nr("进料表编号") = cr("进料表编号")
    nr("机组") = cr("机组")
    nr("规格") = cr("处置_代用_规格")
    nr("材质") = cr("处置_代用_材质")
    nr("长度m") = cr("处置_代用_长度m")
    nr.move(cr.index+1)
End If

"处置_代用" 列手动勾选后，按以上代码自动生成行是没有问题的，但由以下代码自动勾选"处置_代用"列后，就无法自动生成了，要怎么改代码？

Dim dr4 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "处置_代用_数量"
        If dr4.IsNull("处置_代用_数量") Then
            dr4("处置_代用") = Nothing
        Else
            dr4("处置_代用") = True
        End If
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 16:17:00 [只看该作者]

把第一段代码改改放到datacolchanged事件

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/7/15 16:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1563178914.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 16:43:00 [只看该作者]

改改放到datacolchanged事件，每个事件参数都是不一样的

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/7/15 19:05:00 [只看该作者]

请教如何修改？
Select Case e.DataCol.Name
    Case "处置_代用"
        If e.DataRow("处置_代用") = True  Then
            Dim cr As DataRow = e.DataRow
            Dim nr As Row = Tables("角钢进料表明细").addnew
            nr("进料表编号") = cr("进料表编号")
            nr("机组") = cr("机组")
            nr("规格") = cr("处置_代用_规格")
            nr("材质") = cr("处置_代用_材质")
            nr("长度m") = cr("处置_代用_长度m")
            nr("处置_代用1") = True
            nr.move(cr.index+1)
        End If
End Select


图片点击可在新窗口打开查看此主题相关图片如下：1563188560(1).png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 20:37:00 [只看该作者]

Select Case e.DataCol.Name
    Case "处置_代用"
        If e.DataRow("处置_代用") = True  Then
            Dim cr As DataRow = e.DataRow
            Dim nr As Row = Tables("角钢进料表明细").addnew
            nr("进料表编号") = cr("进料表编号")
            nr("机组") = cr("机组")
            nr("规格") = cr("处置_代用_规格")
            nr("材质") = cr("处置_代用_材质")
            nr("长度m") = cr("处置_代用_长度m")
            nr("处置_代用1") = True
            Dim idx As Integer = Tables("角钢进料表明细").FindRow(cr)
            nr.move(idx+1)
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 4 次数据查询