出入库无法直接输入采购单号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：出入库无法输入采购单号.jpg

请看上图：出入库这个数据表里面有两列，一列是“采购单号”，一列是“销售单号”，它们都设置了输入窗口。在“销售单号”可以直接输入数据，但是在“采购单号”那里却不可以直接输入数据。我检查了它们的列属性设置和代码，都是一样的。请教还有什么因素会导致这个情况呢？我希望也能够在“采购单号”里面直接输入数据。谢谢。

有没有什么表事件？

确定列属性设置一样？

在单元格中显示按钮的方法很简单，只需将该列的列表项目设为“...”或“|...”即可，差别是前者不能编辑单元格的内容，后者则可以。

自定义项目用了“|...”就可以了。

If e.DataCol.name = "数量个"

'自动给(出入库)输入数据

Dim dr22 As DataRow

dr22 = DataTables("销售报价").Find("产品代号 = '" & e.DataRow("产品型号") & "' And 客户简称 = '" & "施耐德广州" & "'")

Dim jkdh As String = e.DataRow("送货单号") & "-ZZJK"

Dim dr1 As DataRow = DataTables("出入库").Find("出入库单号 = '" & jkdh & "' and 物料编号 = '" & e.DataRow("产品型号") & "'")

If dr1 IsNot Nothing Then

dr1("入库数量") = dr1("入库数量") + e.newvalue - e.oldvalue

'下面这段不起作用

If dr1("入库数量") = 0

dr1("录入员核对") = False

dr1.delete

End If

Else

Dim dr3 As DataRow = DataTables("出入库").AddNew()

dr3("出入库单号") = jkdh

dr3("出入库日期") = e.DataRow("送货日期")

dr3("出入原因") = "入库-生产入库"

dr3("部供客简称") = "组装车间"

dr3("物料编号") = e.DataRow("产品型号")

dr3("入库数量") = e.newvalue - e.oldvalue

dr3("录入员核对") = True

End If

Dim ckdh As String = e.DataRow("送货单号") & "-ZZCK"

Dim dr2 As DataRow = DataTables("出入库").Find("出入库单号 = '" & ckdh & "' and 物料编号 = '" & e.DataRow("产品型号") & "'")

If dr2 IsNot Nothing Then

dr2("出库数量") = dr2("出库数量") + (-1) * (e.newvalue - e.oldvalue)

'下面这段不起作用

If dr2("出库数量") = 0

dr2("录入员核对") = False

dr2.delete

End If

Else

Dim dr4 As DataRow = DataTables("出入库").AddNew()

dr4("出入库单号") = ckdh

dr4("出入库日期") = e.DataRow("送货日期")

dr4("出入原因") = "出库-客户出货"

dr4("部供客简称") = "施耐德广州"

dr4("物料编号") = e.DataRow("产品型号")

dr4("出库数量") = (-1) * e.newvalue - e.oldvalue

dr4("单价") = dr22("单价")

dr4("录入员核对") = True

End If

上面代码是放在“组装送货单”这个数据表之“Datacolchanged”里面的，但是红色的那些代码起不了作用，尤其是“录入员核对”这两句更是奇怪， dr3("录入员核对") = True 这句起作用，而 dr4("录入员核对") = True 则不起作用。不知道是什么原因？

既然都删除了，还赋值干啥

If dr1("入库数量") = 0

dr1.delete

dr1.save

End If

调试一下代码有没有执行

msgbox(1)

dr4("录入员核对") = True

msgbox(dr4("录入员核对"))

If dr1("入库数量") = 0

dr1.delete

dr1.save

End If

上面那段还是不起作用，dr1("入库数量") 为 0 的行，还是保留在那里。

msgbox(1)

dr4("录入员核对") = True

msgbox(dr4("录入员核对"))

上面那段还是不起作用，没有任何提示，"录入员核对" 那里也还是没有打钩。

说明红色代码根本没有执行到，也就是前面的条件都不符合，学会调试

Dim jkdh As String = e.DataRow("送货单号") & "-ZZJK"

Dim dr1 As DataRow = DataTables("出入库").Find("出入库单号 = '" & jkdh & "' and 物料编号 = '" & e.DataRow("产品型号") & "'")

msgbox(dr1 IsNot Nothing)

If dr1 IsNot Nothing Then

dr1("入库数量") = dr1("入库数量") + e.newvalue - e.oldvalue

msgbox(dr1("入库数量"))

'下面这段不起作用

If dr1("入库数量") = 0

dr1("录入员核对") = False

dr1.delete

End If

Else

msgbox(1)

Dim dr3 As DataRow = DataTables("出入库").AddNew()

dr3("出入库单号") = jkdh

dr3("出入库日期") = e.DataRow("送货日期")

dr3("出入原因") = "入库-生产入库"

我在 datarowdeleting 里面也加上类似下面的代码，上面两个问题就都解决了。

If dr1("入库数量") = 0

dr1("录入员核对") = False

dr1.delete

End If

主题：出入库无法直接输入采购单号