主题：求助数据合并填充的问题

1、先贴出你写的代码；

2、如果你之前用的是find，改成select可以获取多行 http://www.foxtable.com/webhelp/scr/0400.htm

Dim dt1 As DataTable = DataTables("零星维修表")
Dim dt2 As DataTable = DataTables("零星结算表")
For Each bh As String In dt1.GetValues("自动编号", "自动编号 is not null and 状态<>'1.已接单'")
    Dim fdr As DataRow = dt2.find("自动编号 = '" & bh & "'")
    If fdr Is Nothing Then
        fdr = dt2.addnew
    End If
    Dim dr As DataRow = dt1.find("自动编号 = '" & bh & "' and 状态<>'1.已接单'")
    fdr("自动编号") = dr("自动编号")
    fdr("门店名称") = dr("门店名称")
    fdr("状态") = dr("状态")
    fdr("跟单") = dt1.GetComboListString("跟单", "自动编号 = '" & bh & "' and 状态<>'1.已接单'")
Next