共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：代码
1楼
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
2楼
有点蓝 发表于：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()
3楼
13775189031 发表于：2023/9/4 12:43:00
此主题相关图片如下：1693802418763.png
4楼
13775189031 发表于：2023/9/4 12:44:00此主题相关图片如下：1693802469357.png
5楼
有点蓝 发表于：2023/9/4 13:39:00这不很明显了么，到货_数量没有值啊，for循环也就不会执行
6楼
13775189031 发表于：2023/9/4 16:05:00知道了，谢谢
共6 条记录, 每页显示 10 条, 页签:
[1]