主题：请教

此主题相关图片如下：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