主题：数据表问题

请教老师，我要建一个容积对照表的数据表，如图所示，可这种表的字段是数字，怎么解决这个问题

此主题相关图片如下：rjb.png

不知道第一次为啥没附上去

写了个字段名作为变量的表达式，有问题

If e.DataCol.Name="液位" Then
    For Each dc As DataCol In DataTables("容积表").DataCols
        If dc.Caption=e.DataRow("小数")  Then
Dim c As String= dc.Name
            Dim dr As DataRow =DataTables("容积表").Find("液位高度='" & e.DataRow("整数") & "' And c ='" & e.DataRow("小数") & "'")
            If dr IsNot Nothing Then
                e.DataRow("容积")=dr(dc.Name)
            End If
        End If
    Next
End If
运行后提示：调用的目标发生了异常。
语法错误:“c”运算符后缺少操作数。

到底怎么写呀

C是个列名变量， Dim c As String= dc.Name

谢谢

在当前表的DataColchanged事件中写了如下代码，但执行后没结果，是哪的问题？

If e.DataCol.Name="液位" Then
    For Each dc As DataCol In DataTables("容积表").DataCols
        If dc.Caption=e.DataRow("小数")  Then
Dim c As String= dc.Name
            Dim dr As DataRow =DataTables("容积表").Find("液位高度='" & e.DataRow("整数") & "' And " & c & "='" & e.DataRow("小数") & "'")
            If dr IsNot Nothing Then
                e.DataRow("容积")=dr(dc.Name)
                Return
            End If
        End If
    Next
End If

 

此主题相关图片如下：容积表表结构.png


此主题相关图片如下：当前表结构.png

太好了，谢谢老师！