Question

我有这段代码将查找某个工作表的列，并用一个不同的值填充组合框。我的问题是，我需要删除特定值之一。请您帮忙！

例如：

{ Converts a string formatted like 'hh:mm:ss' to seconds.
  Returns -1 is the string does not contain a valid time. 

    StringToSeconds('00:01:30')     // returns 90 (sec)
    StringToSeconds('01:30')        // returns 5400 (sec)
    StringToSeconds('10')           // returns 864000 (sec)
    StringToSeconds('1.30')         // returns -1
    StringToSeconds('x')            // returns -1                           }

function StringToSeconds(CONST s: String): integer;
VAR
  TimeSpan: TTimeSpan;
begin
  TRY
   TimeSpan:= System.TimeSpan.TTimeSpan.Parse(s);
   Result := round(TimeSpan.TotalSeconds);
  EXCEPT
   Result:= -1;
  end;
end;

根据下面的代码，组合框将填充a，b，c

a
b
c
a
b

我想知道是否有什么办法让我说从列表中删除“ b”。预先感谢！

Answer 1

如果您不想在列表中使用特定值，只需在填充ComboBox时将其排除即可-例如If x = 1 AND c <> "B" Then

如果以后要从组合框中删除条目，则可以使用方法RemoveItem。以下例程循环遍历该框的所有条目，搜索字符串并将其删除。可通过属性List访问这些条目，索引从0开始。

Sub removeFromCombo(c As String)
    Dim i As Integer
    With Me.Cmb2
        For i = .ListCount - 1 To 0 Step -1
            If .List(i) = c Then .RemoveItem i
        Next i
        If .Value = c Then .Value = ""
    End With
End Sub

从列表中删除某些项目

1 个答案: