createit1.bas

来自「电气控制仿真软件」· BAS 代码 · 共 27 行

FirstSheet = Sheets[0]
if SheetCount = 1 then
  ThisSheet = AddSheet()
  i = 0
  while i < FirstSheet.UnitCount
    ThisSheet.Copy( FirstSheet.Units[i] )
    i = i + 1
  wend
  客户资料表.SQL = "Select * From Customer"
  客户资料表.Open()
  ActiveSheet = ThisSheet;
end if
i=0
while i < FirstSheet.UnitCount
  d = FirstSheet.Units[i]
  if d.ClassName = 'Text' then
    s = d.Text
    ln = Len( s )
    if ln > 2 then
      if Chr(s[0]) = '&' then
        Sheets[1].UnitByName( d.Name ).Text = Sheets[0].客户资料表.GetFieldValue( substr( s, 2, ln ) )
      end if
    end if
  end if
  i = i + 1
wend