以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]当前表里面查找录入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148782) |
-- 作者:miaoqingqing -- 发布时间:2020/4/15 12:05:00 -- [求助]当前表里面查找录入 求助,加入当前表 地理 已存在当前项目编号,且 国家列值 不为空 或 值不等于 要更新项目名称,就录入 国家列值为 要更新项目名称 下面代码怎么修改,求助 Select Case e.DataCol.name Case "项目编码","国家" If e.DataRow.IsNull("项目编码") = False Then Dim fdr As DataRow = DataTables("地理").Find("项目编码 = \'" & e.DataRow("项目编码") & "\'" And 国家 <> "要更新项目名称" And 国家 <> " ") dr("国家") = "要更新项目名称" End If End Select
|
-- 作者:有点蓝 -- 发布时间:2020/4/15 14:07:00 -- 表的DataColChanging事件代码设置为: Select Case e.DataCol.name MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) |
-- 作者:miaoqingqing -- 发布时间:2020/4/15 14:30:00 -- 回复:(有点蓝)排除重复值?参考:http://www.foxta... 不是要禁止两列值重复 项目编号 国家 01 中国 有多行重复数据 01 中华人民共和国 有多行重复数据 上面是历史数据,新增行项目编号等于01时,国家列,暂时录入:要更新项目名称,不录入 中国 或中华人民共和国
|
-- 作者:有点蓝 -- 发布时间:2020/4/15 15:16:00 -- Dim dr As DataRow = e.DataRow Select Case e.DataCol.name Case "项目编码","国家" If e.DataRow.IsNull("项目编码") = False Then Dim fdr As DataRow = DataTables("地理").Find("项目编码 = \'" & e.DataRow("项目编码") & "\' And 国家 is not null") if fdr isnot nothing then dr("国家") = "要更新项目名称" end if End If End Select
|