VB操作SQL数据表计算结果错误，如何修正表达式获取正确值？

你的问题核心是字符串拼接而非数值运算导致的错误结果：valuex是字符串类型的"500"，从数据库读取的nilxbaca也是字符串格式的公式"1906650*(3.7/100)"，所以+运算符在这里执行的是字符串拼接，最终传给Compute的是"5001906650*(3.7/100)"，计算结果自然和预期不符。

要得到正确的70,564.55，你需要把valuex转换成数值类型，再和公式的计算结果相加，或者修改公式字符串让Compute直接计算总和。以下是两种可行的修改方式：

方式一：先计算公式结果，再与valuex数值相加 #

这种方式拆分了计算步骤，更直观，也便于后续调试：

Dim absenperintah As SqlCommand = New SqlCommand("Select * from mytable where kodetp ='109'", cekdata)
absenperintah.CommandType = CommandType.Text
cekdata.Open()
Dim valuex = "500"
Using cekbaca As SqlDataReader = absenperintah.ExecuteReader(CommandBehavior.CloseConnection)
    If cekbaca.Read = True Then
        Dim nilxbaca = cekbaca("rumus_k").ToString() ' 明确转为字符串格式
        ' 1. 将valuex转为高精度数值类型（推荐用Decimal避免浮点误差）
        Dim valuexDecimal As Decimal = Decimal.Parse(valuex)
        ' 2. 计算数据库中公式的结果
        Dim formulaResult As Decimal = CDec(New DataTable().Compute(nilxbaca, Nothing))
        ' 3. 执行数值加法得到正确结果
        Dim result = valuexDecimal + formulaResult
        MsgBox(result) ' 输出70564.55
    End If
    cekbaca.Close()
End Using
cekdata.Close()

方式二：修改公式字符串，让Compute直接计算总和 #

这种方式更简洁，直接把valuex作为数值拼入公式中，让Compute一次性完成计算：

Dim absenperintah As SqlCommand = New SqlCommand("Select * from mytable where kodetp ='109'", cekdata)
absenperintah.CommandType = CommandType.Text
cekdata.Open()
Dim valuex = "500"
Using cekbaca As SqlDataReader = absenperintah.ExecuteReader(CommandBehavior.CloseConnection)
    If cekbaca.Read = True Then
        Dim nilxbaca = cekbaca("rumus_k").ToString()
        ' 修改nilmy的拼接逻辑，将valuex作为数值与原公式相加
        Dim nilmy = $"{valuex} + ({nilxbaca})"
        Dim result = New DataTable().Compute(nilmy, Nothing)
        MsgBox(result) ' 输出70564.55
    End If
    cekbaca.Close()
End Using
cekdata.Close()

额外提示 #

如果valuex可能来自用户输入或不确定的来源，建议使用Decimal.TryParse来避免转换失败的异常：

Dim valuexDecimal As Decimal
If Decimal.TryParse(valuex, valuexDecimal) Then
    ' 执行后续计算逻辑
Else
    MsgBox("valuex不是有效的数值，请检查输入")
End If

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