这个是第二个问题的,看看,
while rst.EOF=false
If rst.Fields("编号") = text1.text Then
msgbox"编号已存在,请重新输入"
elseif rst.Fields("编号") <>text1.text then
rst.addnewrst.Fields("编号") = text1.text
rst.Update
End If
rst.MoveNext
wend
while rst.EOF=false
If rst.Fields("编号") = text1.text Then
msgbox"编号已存在,请重新输入"
elseif rst.Fields("编号") <>text1.text then
rst.addnewrst.Fields("编号") = text1.text
rst.Update
End If
rst.MoveNext
wend
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货