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

有三个问题劳烦请教一下大师们，第一个是如图所示当点<塔吊周材出库表>确认,时会出现False提示，要点完才会将内容加到存档表中，第二个问题是，我是从出库存档表中将不同设备编号、工程名称、物品名称、型号规格的出库物品，自动输入到周材出入库统计表中的，塔吊周材出库后可以完成加入到出入库统计表中。但是电梯周材出库表中当点确认时，只能从电梯周材出库明细表中增加三行到电梯出入库统计表中（把代码放到电梯周材出库存档表中也是只能加三行）。两个的结构是一样的，为什么会出现不同的情况呢？第三个是，我做了一个自定义输入窗口用在仓库管理的零配件出库中刚启动系统时点物品编号可以出现窗口，但是点多几次新增按钮后再点物品编号单元格时就不出现窗口了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:150204.rar

此主题相关图片如下：1.png

两个问题解决了,谢谢甜老师,第二个问题是这段

Select e.DataCol.Name

Case "工程名称","设备编号","物品名称","型号规格"

If e.DataRow.IsNull("工程名称") OrElse e.DataRow.IsNull("设备编号") OrElse e.DataRow.IsNull("物品名称") OrElse e.DataRow.IsNull("型号规格")Then

Else

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

每次只往电梯周材进场出库统计表里加三行,不知是什么原因?

还是不行,还是只自动增加了三行,其它的都没能加上.

我的不行,不知是什么原因.不知是不是我有时在XP系统上做,有时在WIN7上做的原因啊.有些问题总是很奇怪.

主题：窗口问题