专家坐堂-自动生成行问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动生成行问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189511)

--  作者：13775189031
--  发布时间：2023/12/6 9:10: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.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/12/6 9:17: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("到货_数量")
msgbox(i)
Dim dr3 As Row = Tables("外观尺寸检查记录").AddNew()
dr3("预算编号") = e.DataRow("预算编号")