判断某一列是否有值
Dim count As Integer = Datatables("子表").Find("关联列名 = '" & Tables("主表").Current("关联列名") & "' and 某一列 is null")
msgbox(count)