多列ListBox最后列值与TextBox值对比代码故障排查求助

你的代码主要存在以下几个问题：

1. 数据类型不匹配导致比较错误 #

ListBox的List(i, 2)默认返回字符串类型，而TextBox的Value如果是数字输入，直接用<比较会按字符串的字符顺序判断（比如字符串"100"会被认为小于"90"），而非数值大小对比，这是核心错误。

2. 冗余的循环逻辑 #

你的ListBox只有1行，完全不需要用For循环遍历，直接访问索引0即可。如果是多行场景，原代码每遍历一行就弹出提示，会导致重复弹窗，逻辑混乱。

3. 缺乏输入有效性检查 #

如果TextBox为空、输入非数字，或者ListBox第三列数据无效，会直接触发运行时错误。

针对单行ListBox的修正代码 #

Dim listFund As Double
Dim inputFund As Double

' 检查TextBox输入是否为有效数字
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "请输入有效的数字金额"
    Exit Sub
End If

' 检查ListBox第三列数据是否有效
If Not IsNumeric(Me.ListBox1.List(0, 2)) Then
    MsgBox "ListBox第三列数据无效"
    Exit Sub
End If

' 转换为数值类型进行比较
inputFund = CDbl(Me.TextBox1.Value)
listFund = CDbl(Me.ListBox1.List(0, 2))

If listFund < inputFund Then
    MsgBox "Insufficient Fund"
Else
    MsgBox "Sufficient Fund"
End If

针对多行ListBox的修正代码（检查是否存在资金不足的行） #

如果后续ListBox可能有多行，需要遍历所有行判断是否存在资金不足的情况：

Dim i As Integer
Dim listFund As Double
Dim inputFund As Double
Dim hasInsufficient As Boolean

' 检查输入有效性
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "请输入有效的数字金额"
    Exit Sub
End If

inputFund = CDbl(Me.TextBox1.Value)
hasInsufficient = False

For i = 0 To Me.ListBox1.ListCount - 1
    ' 跳过无效数据的行
    If Not IsNumeric(Me.ListBox1.List(i, 2)) Then
        MsgBox "ListBox第" & i + 1 & "行第三列数据无效"
        Exit Sub
    End If
    
    listFund = CDbl(Me.ListBox1.List(i, 2))
    ' 发现资金不足的行，标记并跳出循环
    If listFund < inputFund Then
        hasInsufficient = True
        Exit For
    End If
Next i

' 统一输出结果
If hasInsufficient Then
    MsgBox "Insufficient Fund"
Else
    MsgBox "Sufficient Fund"
End If

内容的提问来源于stack exchange，提问作者Kobby Adom