你这个代码不严谨,改成这样:
if Tables("表名").Current Isnot Nothing Then
DataTables("表A").LoadFilter = "编号 = '" & Tables("表名").Value & "'"
DataTables("表A").Load
End If
老大,麻烦您给看一看这个问题,用Currenttable.Value的话,开发环境与发布后的程序得到的结果不一样,这很奇怪啊,我怀疑是不是版本有问题?