以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188130)

--  作者:13775189031
--  发布时间: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

--  作者:有点蓝
--  发布时间: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
--  发布时间:2023/9/4 12:43:00
--  

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

--  作者:13775189031
--  发布时间:2023/9/4 12:44:00
--  

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

--  作者:有点蓝
--  发布时间:2023/9/4 13:39:00
--  
这不很明显了么,到货_数量没有值啊,for循环也就不会执行
--  作者:13775189031
--  发布时间:2023/9/4 16:05:00
--  
知道了,谢谢