主题：提示

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代码，能够从数据库提取配件单价

谢谢！

谢谢！

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中，不显示值

问题已解决

谢谢各位的帮助