主题：下拉窗口设置

自己设计一个窗口,用表格保存数据

实在搞不定就上例子吧

select case e.datacol.name

    case "列1","列2","列3"

        e.datarow("编号")=e.datarow("列1") &　e.datarow("列２")　＆　e.datarow("列３")

end select

最好就直接设置一个清空按钮

设置代码

dim r as row = tables("X").current

r("列1")=""

r("列2")=""

dim ls as string()={"列1","列2","列3"}

       Dim b As Boolean

       for each s as string in ls

            if b then

           end if

            if s == e.datacol.name then

                  b=true

           end if

           

       next

end select

dim ls as string()={"列1","列2","列3"}   '声明一个数组 包含所有参与的列,顺序一定要符合你的先后顺序

       Dim b As Boolean   '  增加一个逻辑类型的变量, 作为标识.

       for each s as string in ls  '遍历用到的列名数组 从第一个开始

            if b then   ' 判断标识如果是True 则说明这个列名的列需要清空

           end if

            if s == e.datacol.name then   '判断一下当前触发改变的列是否和遍历到的列名是一致 

                  b=true   '如果是一致,说明这个列就是你改变了列,那么从这个列开始,后面的列就需要清空了, 设置标识为True  下次循环的时候 因为标识已经为True就会把列清空

           end if

           

       next

end select