- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125064)
-- 发布时间：2018/9/19 11:07:00
-- 请教
此主题相关图片如下：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
-- 发布时间：2018/9/19 11:26:00
--
试试
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
-- 发布时间：2018/9/19 16:29:00
--
当该司机的上面的表没有数据时，然后点开司机运费核单界面时，下面的表出来的记录正确，结果上面的表，把该表中所有的司机记录都查出来了，如何让它不显示
此主题相关图片如下：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
红色部分是新加的代码，不起作用
-- 发布时间：2018/9/19 17:24:00
--
应该是代码相互之间有影响导致的。上传一个对应的例子测试。