有点难度

[fangq]

有Ａ表和Ｂ表
在这二个表中，有部分字段相同，如何将Ａ表中的某条数据插入到Ｂ表中

[BlueDestiny]

只是一个添加记录的问题，我记得以前答过某个网友的

1.打开A表，
2.打开B表，
3.把A表定位在某条记录上（在A表的sql语句里应该包含ORDER BY 字句）
loop
4.B.addnew
5.把A表的记录添加至B表
6.B.update
/loop

[fangq]

不错，我也正是这样的思维
我正在撰写代码

[尚和空四]

最好写存储过程了，这些操作最好在数据库里面完成。

程序激发就可以了

[卡哇伊qingqing]

俺看不懂

[fangq]

我已经做好了，现将代码公布
Set Rs = New_Recordset(2)
Set Es = New_Recordset(2)
Set Conn=Data_Open(2)
IF Request.QueryString("Type")="Lb" THEN
Rs.Source="Select * From Lb"
ELSE
Rs.Source="Select * From ZG"
END IF
Rs.Open

Es.Open"Select * From Lb",Conn,1,3
Es.Addnew
For i = 0 To Rs.Fields.Count-1
IF Rs(i).Name <> "id" THEN
Es(""&Es(i).Name&"")=Fun(Rs(i).Name,Request.QueryString("id"))
END IF
Next
Es.Update
Es.Close

Function Fun(S_str,Pid)
Set Ts=New_Recordset(2)
Ts.Source="Select * From Yg Where id="&Pid&""
Ts.Open
For J = 0 To Ts.Fields.Count-1
IF Trim(S_str)=Trim(Ts(J).Name) And S_str <> "id" THEN
M_str=Ts(""&Ts(J).Name&"")
Ts.Close
Fun=M_str
END IF
NExt
END Function

[jspadmin]

取出a表这条记录，然后插入b表，如果你只想插入相同字段的话，就只插入相同的字段，不知道有什么问题？

[fangq]

呵呵，我想智能一点，比如For i = 0 To Rs.Fields.Count-1的样子