请高手指教,字段列如何代换?

Question

表table1 字段finerid,fname,fuicty,date1,date2,date3--------- date31  其中 date1,date2 ------ date30, date31 是按日保存物料的 库存量   现增加记录  
   
 datex="date"&trim(str(day(date())))   (是哪天就保存哪个对应字段)   insert into table1 (finerid,fname,&datex) values (......)    & 宏代换很容易就办到了，但 vb 该如何处理呢？   1 answer  day(date())这样得到当前的日期  
date & day(date()) 这样得到字段名称  2 answer insert into table1 (date & day(date()))  values (.....)  不能获得通过,为何?

Answer 1

sSQL = "insert into table1 (" & date & day(date()) & ")  values (.....)"
cnn.Execute sSQL

Answer 2

表的结构不合理，给自己找麻烦了。改改：
表table1 字段finerid,fname,fuicty,fdate,famount
后两个是日期和物料存量
insert into table1(finerid,fname,fuicty,fdate,famount) values(...

Answer 3

你原来的表结构，如果用 Update 语句也可以写入新的库存数据：update table1 set date20 = 100 where finerid = 1这样就将 finerid = 1 的记录的 date20 字段写入 100.