如果是副本,必须打开窗口才有意义
if Forms("窗口9").opened
Tables("窗口9_Table1").Cols("类别").Combolist = DataTables("即时库存").GetComboListString("类别")
end if