现在你这样写不正确?
那就这样写
Dim n As Integer = DataTables("银行初审").Compute("count(_Identify)", "关联列 = '" & Tables("订单编码").Current("关联列") & "'")