Foxtable(狐表)用户栏目专家坐堂 → 代码


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

主题:代码

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
代码  发帖心情 Post By:2023/9/4 10:07:00 [只看该作者]

请老师看看,点击“到货”没反应,“外观尺寸检查记录”不生成行,不知道什么原因

Select Case e.DataCol.name
    Case "到货"
        If  e.DataRow("到货") = False Then
            DataTables("外观尺寸检查记录").DeleteFor("编号='" & e.DataRow("编号") & "'")
        Else
            For i As Integer = 1 To e.DataRow("到货_数量")
                Dim dr3 As Row = Tables("外观尺寸检查记录").AddNew()
                dr3("预算编号") = e.DataRow("预算编号")
                dr3("项目名称") = e.DataRow("项目名称")
                dr3("编号") = e.DataRow("编号")
                dr3("材料名称") = e.DataRow("材料名称")
                dr3("材质") = e.DataRow("材质")
                dr3("规格_公称mm") = e.DataRow("规格_公称mm")
                dr3("规格_长mm") = e.DataRow("规格_长mm")
                dr3("规格_宽mm") = e.DataRow("规格_宽mm")
                dr3("采购_单位") = e.DataRow("采购_单位")
                dr3("采购_数量") = e.DataRow("采购_数量")
                dr3("到货_数量") = "1"
                dr3("采购_重量Kg") = e.DataRow("采购_重量Kg") / e.DataRow("采购_数量")
                dr3("代号") = "Y"
                dr3.Move(0)
            Next
        End If
End Select

Select Case e.DataCol.Name
    Case "预算编号","项目名称","材料名称","材质","规格_公称mm","规格_长mm","规格_宽mm","采购_单位","采购_数量","采购_重量Kg"
        Dim Filter As String = "[编号] = '" & e.DataRow("编号") & "'"
        Dim drs As List(Of DataRow) = DataTables("外观尺寸检查记录").Select(Filter)
        For Each dr4 As DataRow In drs
            dr4(e.DataCol.Name) = e.NewValue
        Next
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

调试
Select Case e.DataCol.name
    Case "到货"
msgbox(e.DataRow("到货"))
        If  e.DataRow("到货") = False Then
            DataTables("外观尺寸检查记录").DeleteFor("编号='" & e.DataRow("编号") & "'")
        Else
msgbox(e.DataRow("到货_数量"))
            For i As Integer = 1 To e.DataRow("到货_数量")
                Dim dr3 As Row = Tables("外观尺寸检查记录").AddNew()

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


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2023/9/4 12:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1693802418763.png
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2023/9/4 12:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1693802469357.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/4 13:39:00 [只看该作者]

这不很明显了么,到货_数量没有值啊,for循环也就不会执行

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2023/9/4 16:05:00 [只看该作者]

知道了,谢谢

 回到顶部