以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果根据三个以上条件判断自动录入，哪又要怎样改代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91257)
--  作者：zhuxin
--  发布时间：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
--  作者：狐狸爸爸
--  发布时间：2016/10/5 22:14:00
--  
可以参考：
http://www.foxtable.com/webhelp/scr/1284.htm
http://www.foxtable.com/webhelp/scr/2919.htm

看看表达式的基本语法：
http://www.foxtable.com/webhelp/scr/0102.htm
http://www.foxtable.com/webhelp/scr/1647.htm

新手，建议先看视频：
--  作者：zhuxin
--  发布时间：2016/10/5 22:56:00
--  
多谢狐狸爸爸，参考资料看了一次，觉得FOXTABLE很好用，试用一个星期就购了正版商业版。
我是个新手，暂时还是按自已的思维走一段时间，先熟悉一下代码及狐狸爸爸的思路，现在可以看懂代码或看不懂的会查索引了，再重看一次教材及视频，我觉得这样学会比较快入脑些，看了一次好像都不记得似的。
现在学了狐爸的代码都珍藏起来先
以后还得麻烦下狐狸爸爸，