编程论坛 » VFP论坛 » 组合框或列表框中对某些字段作限制(变成灰色)不能选择，有否办法？

sylknb 发表于 2008-3-3 15:13

组合框或列表框中对某些字段作限制(变成灰色)不能选择，有否办法？

下拉列表框或组合框当rowsourcetype为6，即在下拉框(组合框)中出现了某表中所有字段，现在需要当字段类型为数值型时，此字段为灰色不可选。不知如何写代码？请指教。多谢了

Tiger5392 发表于 2008-3-3 15:15

.Combo1.List(nIndex)='\'&&设置灰色

sylknb 发表于 2008-3-4 14:52

我的意思是当字段为数值型时，不能被选择。能否讲的详细点好吗？

Tiger5392 发表于 2008-3-4 22:22

Close All
Use aa
Public fld(Fcount())
For lnCnt=1 To Fcount()
  fld(lnCnt)=Field(lncnt)
EndFor
ThisForm.Combo4.Rowsourcetype=5
ThisForm.Combo4.Rowsource='fld'
ThisForm.Combo4.ListIndex=1
For lnCnt=1 To fcount()
  lcFld=Fld(lnCnt)
  If Type(lcFld)='N'
    ThisForm.Combo4.List(lnCnt)='\'
  EndIf
EndFor

sylknb 发表于 2008-3-6 11:02

不错，多谢了。我试了一下，成功了。不愧为班主。
Public fld(Fcount())
For lnCnt=1 To Fcount()
  fld(lnCnt)=Field(lncnt)
******************************
For lnCnt=1 To fcount()
  lcFld=Fld(lnCnt)
问：1、上下两段语句是什么意思？
    2、Public fld(Fcount())，共公变量名可用函数名来命名吗？

查看完整版本: 组合框或列表框中对某些字段作限制(变成灰色)不能选择，有否办法？