with dm.Q_br_xnxq do
begin
close;
open;
N:=0;
M:=0;
while not eof do
begin
combobox1.Items.add(fieldbyname('SYS_XNXQ__XNXQWZ').Value);
if dm.Q_br_xnxq['SYS_XNXQ__DQBZ']=TRUE THEN
M:=N
ELSE
N:=N+1;
next;
end;
combobox1.ItemIndex:=M;
end;
'SYS_XNXQ__XNXQWZ'学年学期文字
'SYS_XNXQ__DQBZ'判断是否为当前学期
这里的M和N起的作用是什么???
begin
close;
open;
N:=0;
M:=0;
while not eof do
begin
combobox1.Items.add(fieldbyname('SYS_XNXQ__XNXQWZ').Value);
if dm.Q_br_xnxq['SYS_XNXQ__DQBZ']=TRUE THEN
M:=N
ELSE
N:=N+1;
next;
end;
combobox1.ItemIndex:=M;
end;
'SYS_XNXQ__XNXQWZ'学年学期文字
'SYS_XNXQ__DQBZ'判断是否为当前学期
这里的M和N起的作用是什么???
解决方案 »
- 怎样将TImage控件中的图片传到数据表中
- 关于控制语句的后缀表达式
- ◎◎◎◎◎◎◎ 关于TCP服务器端口的问题
- 自己开发了一个CRM,可以免费使用及分发,希望对有需要朋友有帮助!
- 关于用edit显示数据问题~~~~~~~
- 关于Tchar组件的例子
- 一个简单的语句,不知道怎么写!:)
- 关于Object Pascal中类方法 class procedure
- 求用delphi+sql serve2000做的oa的范例
- 怎么用clientdataset与ADOTable或ADOQrery移动到表中的一个记录,然后进行del与edit,怎样把这条记录中的其中一个字段取出来然后赋给一个
- 如何用delphi实现多客户端操作远程数据库?
- 如何控制ListView图标之间的距离
N是while循环的次数。个人感觉这里用for循环还简单点,用While not Eof do的话还得多个变量。