主题：检测表名並列于表里

系统库的结构不合理

建议使用，项目-值的方式来建表

这样的话，代码如下：

For Each dt As DataTable In DataTables
    Dim dr As DataRow =DataTables("系统库").find("项目='表名' and 值 ='" & dt.name & "'")
    If dr Is Nothing Then
       dr = DataTables("系统库").addnew
       dr("项目")="表名"
       dr("值")=dt.name
    End If
Next
DataTables("系统库").save