Adodc2.ConnectionString = conn
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from member_bargaining where state=0 order by user_id,id ASC"
Adodc2.Refresh
Adodc1.Recordset.AddNew ' 判断空值
If VarType(Adodc3.Recordset("gas_station_id")) = vbNull Then
Adodc1.Recordset("gas_station_id") = Null
Else
Adodc1.Recordset("gas_station_id") = Adodc3.Recordset("gas_station_id")
End If
......
Adodc1.Recordset.UpdateBatch adAffectAllChapters
Adodc1.Refresh