1、用 Grid 控件 替代 List 控件
2、取消所有 text 控件的 controlsource 属性值。
3、command5 的 click 事件改为
   loca for kjsj.期号=VAL(thisform.text10.value)
   thisform.list1.Selected=.t.
   thisform.text2.Value=kjsj.期数
   thisform.text3.Value=kjsj.第1支
   thisform.text4.Value=kjsj.第2支
   thisform.text5.Value=kjsj.第3支
   thisform.text6.Value=kjsj.第4支
   thisform.text7.Value=kjsj.第5支
   thisform.text8.Value=kjsj.第6支
   thisform.text9.Value=kjsj.特码
   thisform.grid1.HighlightStyle = 2 
   thisform.grid1.Refresh 
4、command2 的 click 事件中
   USE kjsj.dbf 改为 Select kjsj
   REPLACE 语句可以合并为一行，后面的语句去掉。

为什么要取消所有 text 控件的 controlsource 属性值，
 thisform.list1.Selected=.t.出错，我改为grid1后
 thisform.grid1.Selected=.t.也是出错。

1、如果不取消 text 控件的 controlsource 属性值，只要 text 的值被修改，表的当前记录也就被修改了，再按“新增”按钮时，等于增加了一条相同的被修改了的记录。
2、把这一行去掉  [b]thisform.list1.Selected=.t.[/b]  写贴时，误把这一行复制了，是我的疏忽。