主题：关于追加数据的问题

此主题相关图片如下：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
这里的语句有问题,真的不明白是什么原因.

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

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

因为订单明细表中有些列是用表达式关联查询表的,我想保持查询表中现在已经加载过的数据,如果在明细表中新增数据时如果查询表中还没加载的数据就再加载进来,请问用什么方法会效率高一点呢?

Load方法在执行的时候，会清除已经加载的行，然后重新加载行，加载条件由LoadFilter属性指定。
有的时候并不希望清除已经加载的行，只是希望从后台找出符合条件的行，追加到当前表中，我们称之为追载

我现在想的就是查询表有追载这样的效果,不知能否实现?