code5.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 22 行

程序段05
这段程序查询所有无值的项，并提示用户输入信息

long row
int colnbr
string colname
row=1
colnbr=1
DO WHILE row <> 0
//若出错，就退出
if dw_1.FindRequired (primary!,row,colnbr,colname,TRUE) < 0 then
    exit
end if 
//若row非0，就是发现了无值的项，则显示提示信息
if row <> 0 then
    MessageBox ("所需值丢失"，"在列"+colname +"和行" & + string (row))
//使光标移到需要输入值的项
    dw_1. SetColumn (colnbr)
    dw_1. ScrollToRow (row)
end if 
LOOP