如何用Call Adodc_.Recordset.AddNew("ChildNo", "001"),在添加记录同时对多个字段附值.

Question

对一零点字段赋值可以用Call Adodc_.Recordset.AddNew("ChildNo", "001")
但如果想对两个字段赋值，语句如何写？

Answer 1

是想用AddNew方法添加记录的同得赋值. 
因已知道需要赋值的字段为"ChildNo,ChildName",对应的值为"001,张三" 
即FieldList="ChildNo,ChildName",FieldValue="001,张三" 
想用Call Adodc_MidChange.Recordset.AddNew(FieldList,FieldValue)一条语句完成添加记录并赋值. 

Answer 2

ReDim FieldLists(2) As String
ReDim FieldValues(2) As StringFieldLists(0) = "ChildNo"
FieldLists(1) = "ChildName"
FieldValues(0) = "001"
FieldValues(1) = "张三"Call Adodc_MidChange.Recordset.AddNew(FieldLists(1), FieldValues(1))
这样可以添加了一条新记录，但只有对ChildName字段赋了值，没有对ChildNo字段赋值。
如何写才可同时对两字段同时赋值呢？

Answer 3

dim aFields as variant
dim aValues as variant
aFields = Array("ChildNo","ChildName")
aValues = Array("001","张三")
Call Adodc_MidChange.Recordset.AddNew(aFields, aValues)

Answer 4

      Adodc_MidChange.Recordset.AddNew
      Adodc_MidChange.Recordset!ChildNo = "001"
      Adodc_MidChange.Recordset!ChildName= "张三" 
      Adodc_MidChange.Recordset.Update