主题：窗口问题

1、改一下列名，再改回来。

2、参考明细表的这段代码

 

If e.DataCol.Name = "确认" Then
    If e.DataRow("确认") = True Then
        Dim dr1 As DataRow = DataTables("电梯周材出库存档表").AddNew
        dr1("设备编号") = e.DataRow("设备编号")
        dr1("工程名称") = e.DataRow("工程名称")
        dr1("设备名称") = e.DataRow("设备名称")
        dr1("出库日期") = e.DataRow("出库日期")
        dr1("物品名称") = e.DataRow("物品名称")
        dr1("型号规格") = e.DataRow("型号规格")
        dr1("数量") = e.DataRow("数量")
        dr1("单位") = e.DataRow("单位")
        dr1("设备型号") = e.DataRow("设备型号")
        dr1("结算月份") = e.DataRow("结算月份")
        dr1("标准节规格") = e.DataRow("标准节规格")
        dr1("备注") = e.DataRow("备注")
        dr1("领用人") = e.DataRow("领用人")
        dr1("编号") = e.DataRow("编号")
    End If
End If

3、prepareEdit事件，如下代码去掉

 

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "物料编号" Then '如果正在编辑的是县市列
        '从行政区域表提取该省市的县市作为列表项目
        e.Col.Combolist = DataTables("物料信息表").GetComboListString("物料编号", "[型号规格] = '" & e.Row("型号规格") & "'")
    End If
End If

Select e.DataCol.Name
    Case "工程名称","设备编号","物品名称","型号规格"
       
        Dim fdr As DataRow = DataTables("电梯周材进场出库统计表").Find("工程名称 = '" & e.DataRow("工程名称") & "' and 设备编号 = '" & e.DataRow("设备编号") & "' and 物品名称= '" & e.DataRow("物品名称") & "' and 型号规格= '" & e.DataRow("型号规格") & "'")
        If fdr Is Nothing Then
            Dim nr As Row = Tables("电梯周材进场出库统计表").AddNew
            nr("工程名称") = e.DataRow("工程名称")
            nr("设备编号") = e.DataRow("设备编号")
            nr("物品名称") = e.DataRow("物品名称")
            nr("型号规格") = e.DataRow("型号规格")
            nr("单位") = e.DataRow("单位")
            nr("标准节规格") = e.DataRow("标准节规格")
        End If
       
End Select

测试没有问题啊，去掉if判断就行了啊。

 拷贝7楼代码，删除bin文件夹，重新打开项目看看。