组合框验证

debugcn 发表于 Dev

LD16

我在一种形式上有6个组合框-它们在一个数组中。它们通过cboClient（5）称为cboClient（0）。我在这里尝试做的是验证是否有一个值，以便按照以下方式进行操作：

if cboclient(0)<>"" and not isnull(cboClient(0)) then
   'Do this
End if

每个cbo都填充有相同的项目列表。我的目标是确保用户不能在超过1个cbo中进行相同的选择。基本上，如果他们在cboClient（0）中选择项目1，则不能在任何其他cbo中选择该项目。

我正在尝试找到一种方法，以使我可以在尽可能少的行中执行此操作，我可能会像这样进行操作。但是，这要花很长时间，因为我必须对照每个cbo来验证每个cbo

if cboClient(0).text <> cboClient(1).text then
    msgbox "OK"
Else
    msgbox "Please choose again"
End if

我正在尝试以某种方式将其编写为循环？验证每个cbo中的.text，并确保未进行两个相同的选择。任何想法？

编辑：我有6个cbo's-每个人都填充了相同的数据（例如，数据编号1到10）。如果用户在cboClient（0）中选择“ 1”，则不能在另一个cbo中选择它。我不一定要对他们隐藏它-但是一旦他们单击“保存”，我想拥有一个功能来运行CBO，并检查他们是否多次选择同一项目-如果有，我想要给他们一个MsgBox，说“修正您的选择，您不能有两个项目”

编辑2：

也许做两个循环-一个循环在另一个循环中...

dim a as integer
dim b as integer

for a = 0 to 5
   for b = 1 to 5
       if cboClient(a).text <> cboclient(b).text then
          'keep going
       else
           MsgBox "you have made the same selection"
       End if
   next b
next a

像那样的东西？

阿卜杜拉·乌格哈（Abdellah OUMGHAR）

试试这个代码：

For i = 0 To 5
    For j = 0 To 5
        If i <> j And cboClient(i).Text = cboClient(j).Text Then
            MsgBox "You must choose diffirent values, Please choose again"
            Exit Sub
        End If
    Next
Next

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。