主题：请教

此主题相关图片如下：1.png

双击每一条记录后打开下面界面

 
此主题相关图片如下：2.png

 

当这两个表都有数据的时候，可以打开“司机运费核单的界面”然后对该司机的单据进行核单，上图中其中一个表没有数据，就提示错误，

正确的司机核单窗体

 

此主题相关图片如下：3.png

 

当两个表都有数据可以打开的代码

If Forms("司机运费记录").opened

    DataTables("客户发砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table1").Current("司机") & "'"

    DataTables("客户发砖总表").load

    DataTables("赊销销砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table2").Current("司机") & "'"

    DataTables("赊销销砖总表").load

End If

然后我修改了代码如下，还是不能成功，请老师看一下

If Forms("司机运费记录").opened

    If Tables("司机运费记录_Table1").Current IsNot Nothing Then

        If Tables("客户发砖总表").Current IsNot Nothing Then

            DataTables("客户发砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table1").Current("司机") & "'"

            DataTables("客户发砖总表").load

        End If

       

    ElseIf Tables("司机运费记录_Table2").Current IsNot Nothing Then

        If Tables("赊销销砖总表").Current IsNot Nothing Then

            DataTables("赊销销砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table2").Current("司机") & "'"

            DataTables("赊销销砖总表").load

        End If

    End If

End If

 

试试

 

If Forms("司机运费记录").opened
   
    If Tables("司机运费记录_Table1").Current IsNot Nothing Then
       
        DataTables("客户发砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table1").Current("司机") & "'"
       
        DataTables("客户发砖总表").load
       
    End If
   
    If Tables("司机运费记录_Table2").Current IsNot Nothing Then
       
        DataTables("赊销销砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table2").Current("司机") & "'"
       
        DataTables("赊销销砖总表").load
       
    End If
   
End If

 

当该司机的上面的表没有数据时，然后点开司机运费核单界面时，下面的表出来的记录正确，结果上面的表，把该表中所有的司机记录都查出来了，如何让它不显示

 

此主题相关图片如下：4.png

 

上面的两条记录不应该出来的

If Forms("司机运费记录").opened

   

    If Tables("司机运费记录_Table1").Current IsNot Nothing Then

       

        DataTables("客户发砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table1").Current("司机") & "'"

       

        DataTables("客户发砖总表").load

Else

If Tables("客户发砖总表").Current Is Nothing Then

DataTables("客户发砖总表").loadfilter = "司机 = Nothing "

 

            DataTables("客户发砖总表").load

End If

    End If

   

    If Tables("司机运费记录_Table2").Current IsNot Nothing Then

       

        DataTables("赊销销砖总表").loadfilter = "司机 = '" & Tables("司机运费记录_Table2").Current("司机") & "'"

       

        DataTables("赊销销砖总表").load

else

        If Tables("赊销销砖总表").Current Is Nothing Then

DataTables("赊销销砖总表").loadfilter = "司机 = Nothing "

 

            DataTables("赊销销砖总表").load

End If

 

    End If

   

End If

红色部分是新加的代码，不起作用

应该是代码相互之间有影响导致的。上传一个对应的例子测试。