Dim F1 As New Datasystem.Form2 '实例化窗体
公司主营业务：网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出峨山县免费做网站回馈大家。
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
End If
Next
F1.Show() '如果没有打开的窗体中未找到，重新打开窗体
如果是要判断引用类型可以用TypeOf来判断
Dim s = "666"
If TypeOf (s) Is String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
如果不知道是否是引用类型，可以这样判断：
Dim s = 666
If VarType(s) = VariantType.String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
或者：
Dim s = 666
If s.GetType = "".GetType Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
使用VB提供的取子串函数Mid(S,k,n)；
函数Mid(S,k,n)的功能，从指定的字符串表达式S的第k位开始取连续的n个字符。
例如：S = "1234567890"，Mid(S,1,3) ，返回"123"
例如：S = "1234567890"，Mid(S,3,7) ，返回"3456789"
等等；
结合VB的IF语句，就可以实现你的要求；
If Mid("1234567890",1,3) = "123" Then
MsgBox("正确")
Else
MsgBox("错误")
End If
oNotes
返回了什么
dstable是上面表格的内容？
两者为何要对比？onotes自身判断有没有重复项不就得了？
最重要的报错信息？
不就是上次的那个问题，还没解决，你采纳做什么。
