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

麻烦各位路过的大神帮忙看一下谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:华岳.rar

问题：1、想通过在“明细表”中的"混凝土强度等级","集料"列中输入相关内容后，再从"至20140816止信息价表"找出对应产品的单价。但是无法实现。

　　　２、怎么加一个条件让日期小等于２０１４.８.１６的读取"至20140816止信息价表"，日期大于２０１４.８.１６的读取“从20140817起信息价表”

Select Case e.DataCol.Name

Case "混凝土强度等级","集料"

Dim dr As DataRow = e.DataRow

Dim pr As DataRow

If dr.IsNull("混凝土强度等级") OrElse dr.IsNull("集料") Then

dr("基准_信息价") = Nothing

Else

Dim filter As String

filter = "混凝土强度等级 = '" & dr("混凝土强度等级") & "' And 集料 = '" & dr("集料") & "'"

pr = DataTables("至20140816止信息价表").Find(filter)

If pr IsNot Nothing Then

dr("基准_信息价") = pr("单价")

End If

End Select

多加个判断

dim d as date = "2014-08-16"

if e.datarow("日期") < d then

else

end if

还是不行版主能不能帮忙看下我上面粘帖的代码是不是写错了

没反应,说明没有符合条件的行.

尝试学习一下调试

http://www.foxtable.com/help/topics/1485.htm

Select Case e.DataCol.Name
    Case "混凝土强度等级","集料"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("混凝土强度等级") OrElse dr.IsNull("集料") Then
            dr("基准_信息价") = Nothing
        Else
            Dim filter As String
            Dim d As Date = "2014-08-16"
            filter = "混凝土强度等级 = '" & dr("混凝土强度等级") & "' And 集料 = '" & dr("集料") & "'"

            If e.DataRow("供应日期") < d Then
                pr = DataTables("至20140816止信息价表").Find(filter)
            Else
                pr = DataTables("从20140817起信息价表").Find(filter)
            End If

            If pr IsNot Nothing Then
                dr("基准_信息价") = pr("单价")
            End If
        End If
End Select

解决了谢谢楼上两位大侠

现在的错误提示真的很好用

主题：[求助]新手求助~~跨表引用