'initAdd2是添加有2个数据字段的记录，initAdd3是添加3个数据字段的记录，以此类推
'rs是要传入的记录集，rs1引用时需要加上双引号如添加到字段name时，需要写成"name"，以此类推
'v1是要写入v1字段的数据，以此类推
'骇客杰2010年4月8日编辑
Public Sub initAdd2(rs, rs1, rs2, v1, v2)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Update
End Sub
Public Sub initAdd3(rs, rs1, rs2, rs3, v1, v2, v3)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Fields(rs3) = v3
rs.Update
End Sub
Public Sub initAdd4(rs, rs1, rs2, rs3, rs4, v1, v2, v3, v4)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Fields(rs3) = v3
rs.Fields(rs4) = v4
rs.Update
End Sub
Public Sub initAdd5(rs, rs1, rs2, rs3, rs4, rs5, v1, v2, v3, v4, v5)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Fields(rs3) = v3
rs.Fields(rs4) = v4
rs.Fields(rs5) = v5
rs.Update
End Sub
Public Sub initAdd6(rs, rs1, rs2, rs3, rs4, rs5, rs6, v1, v2, v3, v4, v5, v6)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2vb所有代码
rs.Fields(rs3) = v3
rs.Fields(rs4) = v4
rs.Fields(rs5) = v5
rs.Fields(rs6) = v6
rs.Update
End Sub
Public Sub initAdd7(rs, rs1, rs2, rs3, rs4, rs5, rs6, rs7, v1, v2, v3, v4, v5, v6, v7)
rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Fields(rs3) = v3
rs.Fields(rs4) = v4
rs.Fields(rs5) = v5
rs.Fields(rs6) = v6
rs.Fields(rs7) = v7
rs.Update
End Sub
Public Sub initAdd8(rs, rs1, rs2, rs3, rs4, rs5, rs6, rs7, rs8, v1, v2, v3, v4, v5, v6, v7, v8) rs.AddNew
rs.Fields(rs1) = v1
rs.Fields(rs2) = v2
rs.Fields(rs3) = v3
rs.Fields(rs4) = v4
rs.Fields(rs5) = v5
rs.Fields(rs6) = v6
rs.Fields(rs7) = v7
rs.Fields(rs8) = v8
rs.Update End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。