有什么控件可以做到。
A,B,C三列。a=b*c,b=a/c,c=a/b这样自动运算的结果?

解决方案 »

  1.   

    你的意思是总共有三列,任意填了两列,就可以自动填充第三列吧。
    下面是解决这个问题的:
    for i = 0 to text1.count-1
      if text1(i).text<> "" then
        if text2(i).text<>"" then
          text3(i).text=val(text1(i).text)/val(text2(i).text)
        elseif text3(i)<>"" then
          text2(i).text=val(text1(i).text)/val(text3(i).text)
        end if
      else
        if text2(i).text<>"" and text3(i).text<>"" then
          text1(i).text=val(text2(i).text)*val(text3(i).text)
        end if
      end if
    next i
    以上的程序是我随便写写,忘了考虑除数为零的情况,你自己改吧