确保表1的数据时完整的,你可以先建立一些测试数据,测试下面语句正确性,以免浪费时间,
dim i as integer = 1
dim str as string = "insert into 日气象要素(ID,DateTime,R,R2008,R0280) select '56768',convert(datetime,年 + 月 + '{0}'),r{0}, r28{0},r82{0} from rd56768"
str = cexp(str,i)
具体你再拓展下吧,主要是解决时间判断问题,convert(datetime,年 + 月 + '{0}')。看有没有其它思路。