在线求助 急 急 急！！！！！！！！！！！！！！！！！

Question

在线求助 急 急 急！！！！！！！！！！！！！！！！！
<%@Import Namespace=System.Data.SqlClient%>
<%@Import Namespace=System.Data%>
<Script Language="VB" Runat="Server">
Sub Page_Load(Sender As Object, e As EventArgs)
Dim strConStr As String = "server=localhost;database=bookshop;uid=sa;password=111"
        Dim strComStr As String = "Select * From shop_books where bookid in (select bookid from shop_pinglun)"
        Dim dscA As SqlDataAdapter = New SqlDataAdapter(strComStr, strConStr)
Dim dsDataSet As DataSet = New DataSet()
        dscA.Fill(dsDataSet, "book")
        dscA.SelectCommand.CommandText = "Select * from shop_pinglun"
        dscA.Fill(dsDataSet, "ping")
        dsDataSet.Relations.Add("bookp", dsDataSet.Tables(0).Columns("bookid"), dsDataSet.Tables(1).Columns("bookid"))
Dim shtI As Short
Dim rowTemp As DataRow
        For shtI = 0 To dsDataSet.Tables("book").Rows.Count - 1
            Response.Write("评论者: " & dsDataSet.Tables("book").Rows(shtI)("bookid") & " 评论:")
            For Each rowTemp In dsDataSet.Tables("book").Rows(shtI).GetChildRows("bookp")
                Response.Write("<br>评论者: " & rowTemp("pinglunname") & _
                " / 评论内容: " & rowTemp("pingluncontent") & _
                " / 图书编号: " & rowTemp("bookid"))
            Next
            Response.Write("<p>")
        Next
End Sub
</SCRIPT>
××××××××××××××××××××××××××××××××××××××××××××
以下是报错 大家帮忙看看 小弟谢谢了！！！！！！！！！！！
This constraint cannot be enabled as not all values have corresponding parent values. 
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.ArgumentException: This constraint cannot be enabled as not all values have corresponding parent values.

Answer 1

大家都上班了吧？有人吗？？帮帮忙啊？？？