数据表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据表问题

共有4376人关注过本帖树形打印复制链接主题：数据表问题

drcqh

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：326 积分：3723 威望：0 精华：0 注册：2013/1/7 17:39:00

Post By：2013/11/13 18:08:00 [只看该作者]

谢谢

drcqh

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：326 积分：3723 威望：0 精华：0 注册：2013/1/7 17:39:00

Post By：2013/11/13 18:19:00 [只看该作者]

在当前表的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