管用！！谢谢！！！

您好，这几句代码是插入在修改后的末尾么？    我打上后，表格仍旧是空白的。。。
select 表
go top
thisform.Refresh[/quote]
您能帮我看看么?

您好，我将这两个代码稍稍修改运用到里头可是程序说我的语法有错误？
您能帮我看看么

[ 本帖最后由 隔壁的土豆 于 2013-11-30 10:17 编辑 ]

这是VFP9。0代码，VF6。0会报错的，
VF6。0改一下

如: 在combo1 中init的代码:
create cursor t1 (班级 c(20)) &&这长度，按您自己实际调整
this.RowSourceType= 2
this.RowSource='t1'
-----------------------
在combo2中的InteractiveChange的代码:
select 班级 from 班级管理 into cursor t2 where allt(系别)==allt(this.value)
select t1
zap
appe from (dbf('t2'))
use in t2
go top t1

您好，我把代码写上去后    go top t1   会显示语法错误，     那应该怎么写呢？

修改下红色部份

IF NOT USED('系统管理员数据表')
    USE 系统管理员数据表 IN 0 &&修改这句
ENDIF
select 系统管理员数据表
* 用户管理.grid1.recordsource = NULL &&删除这句
if empty(thisform.text1.value)
 messagebox("新用户名",48,"警告")
   else
     if empty(thisform.text2.value)
        messagebox("密码不能为空",48,"警告")
     else
       if empty(thisform.text3.value)
          messagebox("确认密码不能为空",48,"警告")
       else   
          if alltrim(thisform.text2.value) <> alltrim(thisform.text3.value)
             messagebox("输入的密码不一致！请重新输入",48,"警告")
             thisform.text2.value = ""
             thisform.text3= value = ""
             thisform.text2.setfocus
            
             else
              append blank
                replace 账号 with alltrim(thisform.text1.value)
                replace 密码 with alltrim(thisform.text2.value)
                replace 管理员 with thisform.optiongroup1.value = 1
                replace 只读用户 with thisform.optiongroup1.value = 2
                replace 普通用户 with thisform.optiongroup1.value = 3
               
               
               
               
               replace 班级与学生档案管理 with thisform.check1.value
              replace 学生缴费管理 with thisform.check2.value
              replace 课程与成绩管理 with thisform.check3.value
               
               
               
               
               
                  messagebox("添加成功",48,"恭喜")
                  thisform.text1.value = ""
                  thisform.text2.value = ""
                  thisform.text3.value = ""
                endif
           endif
       endif
     endif
     
     
                   select 系统管理员数据表  &&修改这句
                       go top
                     用户管理.Refresh



[ 本帖最后由 bccn0906 于 2013-11-30 10:43 编辑 ]

go top in t1   

啊啊啊啊啊啊！！！！！！大神！！我总算等到你了！！！！
555555555555555555555555
相见恨晚啊！！！

前辈，我刚刚运行了下，
结果出现这样子


您能再帮我改改么

其中还有个问题很困扰，
就是修改表格里的记录的时候只能修改第一条，怎么修改用鼠标确定的那条记录呢？

.....

[ 本帖最后由 bccn0906 于 2013-11-30 15:54 编辑 ]