以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 新增记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150397)
--  作者：leoli
--  发布时间：2020/5/28 20:48:00
--  [求助] 新增记录
老师，请问以下黄色的不对了，请帮忙指正， 另外 只允许增加一次，再执行就显示“已经新增了”。谢谢。


Dim dr As DataRow
dr = DataTables("PriceNew").AddNew(1)
dr("FBrNo") = "0"
dr("FSupID") = ComboBox2.value
dr("FItemID") = "0"

msgbox("完成")
--  作者：有点蓝
--  发布时间：2020/5/29 8:48:00
--  
if DataTables("PriceNew").datarows.count = 0 then

Dim dr As DataRow
dr = DataTables("PriceNew").AddNew(1)
dr("FBrNo") = "0"
dr("FSupID") = e.form.controls("ComboBox2").value
dr("FItemID") = "0"

msgbox("完成")
else
msgbox("已经新增了")
end if
--  作者：leoli
--  发布时间：2020/5/29 18:59:00
--  
老师，谢谢，可能表达错了。 不是这个表中只允许增加一条记录。是当前的记录只允许增加一次。
--  作者：有点蓝
--  发布时间：2020/5/30 8:44:00
--  
哪个列的数据可以判断这条记录已经添加过了？FSupID？

if DataTables("PriceNew").find("FSupID=\'" & e.form.controls("ComboBox2").value & "\'") isnot nothing then

Dim dr As DataRow
dr = DataTables("PriceNew").AddNew(1)
dr("FBrNo") = "0"
dr("FSupID") = e.form.controls("ComboBox2").value
dr("FItemID") = "0"

msgbox("完成")
else
msgbox("已经新增了")
end if