- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 输入问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183828)
-- 发布时间：2022/11/15 11:28:00
-- 输入问题
出库明细表二维码和条码输入数据的时候，所属商场自动输入出库列表选择的所属商场要怎么写
此主题相关图片如下：1668481896728.png
此主题相关图片如下：1668482223912.png
-- 发布时间：2022/11/15 11:40:00
--
新增按钮
dim r as row = tables("某某").addnew
r("所属商场") = tables("出库列表").current("所属商场")
-- 发布时间：2022/11/15 11:47:00
--
老师这样是增加行就输入了呀，想在输入前填入关联一下列就实现了，，我想是二维码和条码列输入内容后，才填入所属商场列
-- 发布时间：2022/11/15 11:51:00
--
到datacolchanged事件处理，用法类似
-- 发布时间：2022/11/15 11:57:00
--
谢谢老师在datacolchanged这里写上
If e.DataCol.Name = "二维码" OrElse e.DataCol.Name = "条码"Then
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("所属商场") = Nothing \'那么清空此行单价列的内容
Else
Dim r As Row = Tables("出库列表.出库明细").Current
r("所属商场") = Tables("出库列表").current("所属商场")
End If
End If
这样就可以了
-- 发布时间：2022/11/15 12:00:00
--
有问题，先看看：http://www.foxtable.com/webhelp/topics/2925.htm
If e.DataCol.Name = "二维码" OrElse e.DataCol.Name = "条码"Then
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("所属商场") = Nothing \'那么清空此行单价列的内容
Else
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("所属商场") = Nothing \'那么清空此行单价列的内容
Else
if Tables("出库列表").current isnot nothing then
e.DataRow("所属商场") = Tables("出库列表").current("所属商场")
e.DataRow("所属商场") = Tables("出库列表").current("所属商场")
end if
End If
End If
End If
End If