为什么不能删除数据??

程序开发推广

为什么不能删除数据??
代码如下:
.版本 2
.支持库 spec

.子程序 _按钮1_被单击

服务器1.断开客户 (服务器1.取回客户 ())


.子程序 _服务器1_客户进入

标签.标题 ＝ 到文本 (到数值 (标签.标题) ＋ 1)
地址列表框.加入项目 (到文本 (服务器1.取回客户 () ＋ #换行符), )
调试输出 (服务器1.取回客户 () ＋ “   刚进去一个”)

.子程序 _服务器1_客户离开
.局部变量 n1, 整数型

标签.标题 ＝ 到文本 (到数值 (标签.标题) － 1)
.计次循环首 (地址列表框.取项目数 (), n1)
    .如果 (地址列表框.取项目文本 (n1 － 1) ＝ 服务器1.取回客户 ())
        地址列表框.删除项目 (n1 － 1)
    .否则

    .如果结束

.计次循环尾 ()

.子程序 _按钮2_被单击

调试输出 (地址列表框.取项目数 ())


.子程序 _服务器1_数据到达
.局部变量 n1, 整数型

调试输出 (到文本 (服务器1.取回数据 ()))
.计次循环首 (地址列表框.取项目数 (), n1)
    服务器1.发送数据 (地址列表框.取项目文本 (n1 － 1), 服务器1.取回数据 (), )
.计次循环尾 ()

xbzx

给分吧，因为你加入列表框时加入了#换行符
判断的时候也要加上，或者你也可以在加入列表时不要加入#换行符也行



第一种改法增加红色的代码

你的错误的

.版本 2
.子程序 _服务器1_客户离开
.局部变量 n1, 整数型
标签.标题 ＝ 到文本 (到数值 (标签.标题) － 1)
.计次循环首 (地址列表框.取项目数 (), n1)
    .如果 (地址列表框.取项目文本 (n1 － 1) ＝ 服务器1.取回客户 () )
        地址列表框.删除项目 (n1 － 1)
    .否则
    .如果结束
.计次循环尾 ()


改的正确的，
.版本 2
.子程序 _服务器1_客户离开
.局部变量 n1, 整数型
标签.标题 ＝ 到文本 (到数值 (标签.标题) － 1)
.计次循环首 (地址列表框.取项目数 (), n1)
    .如果 (地址列表框.取项目文本 (n1 － 1) ＝ 服务器1.取回客户 () ＋ #换行符)
        地址列表框.删除项目 (n1 － 1)
    .否则
    .如果结束
.计次循环尾 ()





第二种改法。删掉蓝色的地方。其他地方不用改。

.版本 2
.支持库 spec
.子程序 _服务器1_客户进入
标签.标题 ＝ 到文本 (到数值 (标签.标题) ＋ 1)
地址列表框.加入项目 (到文本 (服务器1.取回客户 () ＋ #换行符), )
调试输出 (服务器1.取回客户 () ＋ “   刚进去一个”)

夜色无边

DX , 你想删除什么数据?  说出来, 也好学习下

程序开发推广

谁能帮我看下!这代码哪出错了吗?

anjili

{:3_185:}呵呵不知

冷情

要不要我帮你把帖子删除掉？ 没人回答