此主题相关图片如下：d.jpg

Case "part_no"
        Dim cmd As New SQLCommand
        Dim cmd1 As new SQLCommand
        Dim dt As DataTable
        Dim dt1 As DataTable
        cmd.C
        cmd.CommandText = "SELECT part_no,wf_cp_gz,wf_cp_ggrem,cu_part_no,wf_bz_fs From {obas_part_spec} where part_no = \'" & e.DataRow("part_no") &"\'"
        cmd1.C
        cmd1.CommandText = "SELECT part_no,sal_unit_no From {obas_part1} where part_no = \'" & e.DataRow("part_no") &"\'"
        dt = cmd.ExecuteReader()
        dt1 = cmd1.ExecuteReader()
        Dim dr As DataRow
        dr = dt.Find("part_no = \'" & e.DataRow("part_no") & "\'")
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            e.DataRow("国家")= dr("wf_cp_gz")
            e.DataRow("客户编码")= dr("cu_part_no")
            e.DataRow("rem")= dr("wf_cp_ggrem")
            e.DataRow("define1")= dr("wf_bz_fs")
           
        Else
            e.DataRow("国家")= Nothing
            e.DataRow("客户编码")= Nothing
           
        End If
        Dim dr1 As DataRow =dt1.DataRows(0)
        e.DataRow("sal_unit")= dr1("sal_unit_no")
        Dim dr2 As DataRow=DataTables("料品资料查询表").Find("part_no = \'" & e.DataRow("part_no") & "\'")
        If dr2 IsNot Nothing Then
            Return
        Else
            Dim s As String =e.DataRow("part_no")
            Dim Filter As String = "[part_no] = \'" & s & "\'"
            DataTables("料品资料查询表").AppendLoad(Filter, False)
        End If
End Select

我试过不是select语句有误,而是

Dim dr2 As DataRow=DataTables("料品资料查询表").Find("part_no = \'" & e.DataRow("part_no") & "\'")
        If dr2 IsNot Nothing Then
            Return
        Else
            Dim s As String =e.DataRow("part_no")
            Dim Filter As String = "[part_no] = \'" & s & "\'"
            DataTables("料品资料查询表").AppendLoad(Filter, False)
        End If
这里的语句有问题,真的不明白是什么原因.

还是Select语句有无，AppendLoad使用Select语句来追载数据。

检查你合成的Filter语句：

Dim dr2 As DataRow=DataTables("料品资料查询表").Find("part_no = \'" & e.DataRow("part_no") & "\'")
If dr2 IsNot Nothing Then
    Return
Else
    Dim s As String =e.DataRow("part_no")
    Dim Filter As String = "[part_no] = \'" & s & "\'"
    messagebox.Show(filter)
    DataTables("料品资料查询表").AppendLoad(Filter, False)
End If

注意如果你的part_no是数值型，那么

Dim Filter As String = "[part_no] = \'" & s & "\'"

应该改为：

Dim Filter As String = "[part_no] = " & s

我在"料品资料查询表"中建立一个窗口并加一个按钮,按钮的执行代码如下,也一样出错啊

DataTables("料品资料查询表").AppendLoad("[part_no] = \'O0000000000000023901\'", False)

我测试没有问题,搞不定的话,你就用这段代码做个简单的例子发上来.

请问我的那个料品资料查询表的生成器是如下语句,请问有没关系的呢?现在比时间比较紧,能否用qq 远程帮我看看呢?

Select  {obas_part1}.part_no,part_attr,{obas_part1}.part_type,unit_no,item_no,part_name,part_spec,type_name,base_code,code_type,base_name,parent_no,{obas_part}.act_sw From (({obas_part1} Inner JOIN {obas_part} ON {obas_part}.[part_no] = {obas_part1}.[part_no]) Inner JOIN {obas_part_type} ON {obas_part_type}.[type_no] = {obas_part1}.[part_type]) Inner JOIN {obas_base_code} ON {obas_base_code}.[base_code] = {obas_part1}.[unit_no] Where {obas_base_code}.[code_type] = \'115\' and {obas_part1}.[part_type] like \'1%\' Order By {obas_part}.item_no