以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 重复值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113651) |
-- 作者:outcat -- 发布时间:2018/1/20 2:00:00 -- 重复值
有一个采购明细表,我想在采购明细表里限制不允许输入相同的商品名称记录,于是在采购明细表DataColChanging写了代码,要在导入商品的时候出现上图中物品名称界面的时候,取消商品勾选框,停止导入,可是下面的代码不执行,请教了 DataColChanging If e.DataCol.Name="物品编号" Then \' 做一个查找 Dim dr As DataRow=DataTables("采购明细表").Find("物品编号=\'" & e.NewValue & "\'") \'新的值在订单表里查找 If dr IsNot Nothing Then \'如果有说明重复 If MessageBox.Show("物品名称重复","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question)= DialogResult.Yes Then For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows r.Checked = False Next End If End If End If |
-- 作者:有点蓝 -- 发布时间:2018/1/20 8:55:00 -- 导入写了什么代码? |
-- 作者:outcat -- 发布时间:2018/1/20 9:17:00 --
For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows |
-- 作者:有点蓝 -- 发布时间:2018/1/20 9:46:00 -- 导入按钮 Dim found As Boolean For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows Dim dr As DataRow=DataTables("采购明细表").Find("物品编号=\'" & r("物品编号") & "\'") If dr IsNot Nothing Then \'如果有说明重复 MessageBox.Show(r("物品编号") & "物品名称重复","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question) found = True Exit For End If Next If found = False For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows Dim r1 As Row = Tables("采购明细表").AddNew Dim r2 As Row = Tables("采购总表").Current r1("日期") = r2("日期") r1("供应商") = r2("供应商") r1("采购单号") = r2("采购单号") r1("付款方式") = r2("付款方式") r1("采购员") = r2("采购员") r1("类别编号") = r("类别编号") r1("物品类别") = r("物品类别") r1("物品编号") = r("物品编号") r1("物品名称") = r("物品名称") r1("规格") = r("规格") r1("型号") = r("型号") r1("单位") = r("单位") r1("单价") = r("单价") Next e.Form.close End If [此贴子已经被作者于2018/1/20 9:45:59编辑过]
|