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

参考：http://www.foxtable.com/webhelp/topics/1452.htm

Select Case e.DataCol.Name
    Case "等级","尺寸"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("等级") OrElse dr.IsNull("尺寸") Then
            dr("极限偏差") = Nothing
        Else
            dr("极限偏差") = “+14/+65”

End If
End Select

参考：http://www.foxtable.com/webhelp/topics/1451.htm，使用find查询到合适的数据

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.zip

无法区分，建议换种等级编号

换种方式查询

Dim idx As Integer = Tables("公差标准").Find(e.DataRow("等级"), 0, "等级", True, True, True)

If idx > -1 Then

dr = Tables("公差标准").rows(idx).DataRow

e.DataRow("极限偏差") = dr(cn)

End If

编程基础还是要多看看，把基础学好：http://www.foxtable.com/webhelp/topics/0223.htm

Dim idx As Integer = Tables("极限偏差表").Find(e.DataRow("公差等级"), 0, "公差带", True, True, True)

If idx > -1 Then 如果查得到

dr = Tables("极限偏差表").rows(idx).DataRow

e.DataRow("极限偏差") = dr(cn)

else 否则，意思就是查不到

把查询其它表的代码放到这里

End If

先看3遍：http://www.foxtable.com/webhelp/topics/1284.htm
dr = DataTables("一般公差表").Find( "[类别] = '" & e.DataRow("类别") & "' And [公差等级] = '" & e.DataRow("公差等级") & "'")