Do
tl_huohao = jh.Fields(0)
kc.Find "huohao='" & Trim(tl_huohao) & "'"
Text1.Text = jh.Fields(0)
If kc.EOF Then
kc.AddNew
kc.Fields(0) = jh.Fields(0)
kc.Fields(1) = jh.Fields(1)
kc.Fields(2) = jh.Fields(2)
kc.Fields(3) = jh.Fields(3)
kc.Fields(4) = jh.Fields(4)
kc.Fields(5) = jh.Fields(5)
kc.Fields(6) = jh.Fields(6)
kc.Fields(7) = jh.Fields(7)
kc.Fields(8) = jh.Fields(8)
kc.Fields(9) = jh.Fields(9)
kc.Fields(10) = jh.Fields(10)
kc.Fields(11) = jh.Fields(11)
kc.Fields(12) = jh.Fields(12)
kc.Fields(13) = jh.Fields(13)
kc.Fields(14) = jh.Fields(14)
kc.Update
kc.MoveFirst
End If
jh.MoveNext
Loop Until jh.EOF
tl_huohao = jh.Fields(0)
kc.Find "huohao='" & Trim(tl_huohao) & "'"
Text1.Text = jh.Fields(0)
If kc.EOF Then
kc.AddNew
kc.Fields(0) = jh.Fields(0)
kc.Fields(1) = jh.Fields(1)
kc.Fields(2) = jh.Fields(2)
kc.Fields(3) = jh.Fields(3)
kc.Fields(4) = jh.Fields(4)
kc.Fields(5) = jh.Fields(5)
kc.Fields(6) = jh.Fields(6)
kc.Fields(7) = jh.Fields(7)
kc.Fields(8) = jh.Fields(8)
kc.Fields(9) = jh.Fields(9)
kc.Fields(10) = jh.Fields(10)
kc.Fields(11) = jh.Fields(11)
kc.Fields(12) = jh.Fields(12)
kc.Fields(13) = jh.Fields(13)
kc.Fields(14) = jh.Fields(14)
kc.Update
kc.MoveFirst
End If
jh.MoveNext
Loop Until jh.EOF
解决方案 »
- SQL Servre2000备份问题,杀掉了其他和SQL Server通讯的进程,当备份完后,怎么恢复原先的连接啊?
- 这个是什么意思啊?
- ●○●200分送Pigpag行!!●○●
- 使SPREAD控件的某个单元获得焦点
- ***********如何返回一個打印机中某一紙張格式的id值???急********************
- vb6不能打开access2000数据库问题,我记得需要一个补丁程序,谁能告诉我?
- INSTALL SHEILD 哪里有下载!!
- 用vba在word中.怎么能让鼠标放在文字上而出现一个注释的图层
- AMoon,你的问题彻底解决了。我把DLL写好了。
- 一个菜鸟级的问题,如何创建一个数据库文件和在其中建一个表?
- 有同时会VB和Delphi的人吗?
- 我用MSCOMM读取内存中的数据,得到的是乱码!!!高位高手认识这些码!怎么转换呢??
此代码为实现对KC中没有的记录追加,但实现不了,
不知为何kc.EOF永远为假?