怎样写代码在清理combo中的内容后不替换自由表中的内容?

holiwood 2009-07-11 08:38:21
我在form中应用了一个combo来选择部门表中的部门(属性已设置成readonly=真),在两个text中输入时间数值,在按了“确定”键后把text中的数值来修改统计表中的的时间,接着用combo1=""来清除combo为空白为接着选择部门做准备。可是运行退出后发现部门表中最后一个部门内容被替换成空白了,不知是什么原因?请高手赐教,谢谢了!



“确定”按钮中的代码如下:

SELECT bmbh
LOCATE FOR bm=ALLTRIM(thisform.combo1.Value )
bms=bm
SELECT 4
USE yagz EXCLUSIVE
sz1=thisform.text1.Value
sz2=thisform.text2.Value
IF thisform.combo1.Visible = .T.
bms=ALLTRIM(thisform.combo1.Value )
REPLACE ALL g2 WITH sz2 ,g3 WITH sz1 FOR a28=ALLTRIM(bms)
ELSE
REPLACE ALL g2 WITH sz2 ,g3 WITH sz1
ENDIF
thisform.combo1.Value=""
thisform.text1.Value =0
thisform.text2.Value =0
thisform.Refresh    
...全文
37 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
holiwood 2009-07-11
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 lc_apple 的回复:]
把combo1的ControlSource的值改为无
[/Quote]
谢谢lc_apple!问题解决了!
holiwood 2009-07-11
  • 打赏
  • 举报
回复
谢谢各位的回复!
试了改成thisform.combo1.DisplayValue="" 或 thisform.combo1.ControlSource=Null 结果还是最后一条不是被清了。


把combo1的ControlSource的值改为无后要选择的部门呈空白了。
lc_apple 2009-07-11
  • 打赏
  • 举报
回复
把combo1的ControlSource的值改为无
十豆三 2009-07-11
  • 打赏
  • 举报
回复
thisform.combo1.Value=""
改为
thisform.combo1.DisplayValue=""

thisform.combo1.ControlSource=Null

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧