专家坐堂-如何根据数组排列次序进行填入数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何根据数组排列次序进行填入数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131046)

--  作者：ZJZK2018
--  发布时间：2019/2/15 4:11:00
--  如何根据数组排列次序进行填入数据

如题
如：dr("投标报价")为空时,其他后面的dr("有效报价")，dr("有效评标价")，dr("二次有效评标价")为空；
dr("投有效报价")为空时,其他后面的dr("有效评标价")，dr("二次有效评标价")为空；
如何实现这个需求？

Dim nms() As String = {"投标报价","有效报价","有效评标价","二次有效评标价"}
Dim dr As Row = Tables("标录明细").Current
For Each nm As String In nms
msgbox(nm)
Next

--  作者：有点甜
--  发布时间：2019/2/15 9:22:00
--
Dim nms() As String = {"投标报价","有效报价","有效评标价","二次有效评标价"}
Dim dr As Row = Tables("标录明细").Current
Dim flag As Boolean = False
For Each nm As String In nms
    If dr.IsNull(nm) Then
        flag = True
    End If
    If flag = True Then
        dr(nm) = Nothing
    End If
Next