如果根据三个以上条件判断自动录入，哪又要怎样改代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果根据三个以上条件判断自动录入，哪又要怎样改代码？

共有2016人关注过本帖树形打印复制链接主题：如果根据三个以上条件判断自动录入，哪又要怎样改代码？

zhuxin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

如果根据三个以上条件判断自动录入，哪又要怎样改代码？ 发帖心情

Post By：2016/10/5 16:50:00 [显示全部帖子]

如果供应商单价是根据供应商名称、产品编码、月份、采购数量进行判断自动录入单价，哪又要怎样编呢？

这个是根据二个条件自动录入单价的：If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[省市] = '" & e.DataRow("省市") & "' And [县市] = '" & e.DataRow("县市") & "'"
    dr = DataTables("行政区域").Find(Filter) '在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号和邮编内容填入到正在输入的行中
        e.DataRow("区号") = dr("区号")
        e.DataRow("邮编") = dr("邮编")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If

zhuxin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

Post By：2016/10/5 22:56:00 [显示全部帖子]

多谢狐狸爸爸，参考资料看了一次，觉得FOXTABLE很好用，试用一个星期就购了正版商业版。

我是个新手，暂时还是按自已的思维走一段时间，先熟悉一下代码及狐狸爸爸的思路，现在可以看懂代码或看不懂的会查索引了，再重看一次教材及视频，我觉得这样学会比较快入脑些，看了一次好像都不记得似的。

现在学了狐爸的代码都珍藏起来先

以后还得麻烦下狐狸爸爸，

下一主题 >> << 上一主题

主题：如果根据三个以上条件判断自动录入，哪又要怎样改代码？