With DataTables("配件采购表")
    Dim dr As DataRow = DataTables("配件采购表").find("配件名称 = \'"& Tables("配件采购表").Current("配件名称") &"\'","日期 Desc",1)
    Dim dr1 As DataRow = DataTables("配件采购表").find("配件名称 = \'"& Tables("配件采购表").Current("配件名称") &"\'","日期 Desc",2)
    Dim dr2 As DataRow = DataTables("配件采购表").find("配件名称 = \'"& Tables("配件采购表").Current("配件名称") &"\'","日期 Desc",3)
    If dr IsNot Nothing Then \'如果找到的话
        MessageBox.Show("前次配件单价:" & dr("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        MessageBox.Show("前次配件单价:" & dr1("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        MessageBox.Show("前次配件单价:" & dr2("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If
End With

求助，如何将上述代码改为SQL代码，能够从数据库提取配件单价

谢谢！

好好学习《开发指南》下《SQL相关》这一章。

你不会基本指法，老师如何教你弹贝多芬？

谢谢！

Dim cmd As New SQLCommand
Dim ndj As String = Tables("配件采购").Current("名称")
cmd.CommandText = "Select Top 1 单价 From {配件采购} Where 名称 = \'" & ndj & "\' Order By 日期 Desc"
ndj = cmd.ExecuteScalar

用上述代码已经可以提取单价

我想把它改为在单价前面同时显示客户名称，不知如何解决

谢谢狐兄！

还不行，出现错误提示

客户名称 (文本）

单价（数值）

我认为是不能用+

ndj = cmd.ExecuteScalar

 MessageBox.Show( ndj ,"题示",MessageBoxButtons.OK,MessageBoxIcon.Information)

如果用上述代码，没有提示错误。不过在变量ndj中，不显示值

问题已解决

谢谢各位的帮助