如何自动获取菜单名称和标题?
For Each rb As Relation In Relations
For Each dc As Col In Tables( rb.Name).Cols
Dim dr As DataRow = DataTables("表列名称" ).Find( "表名称 = '" & rb. Name & "' And 列名称 = '" & dc.Name & "'")
If dr Is Nothing Then
dr = DataTables ("表列名称"). AddNew ()
dr("表名称" ) = dt. Name
dr("列名称" ) = dc. Name
End If
Next
Next
以上代码是可以自动获取数据表的表名称和列名称,能否参考以上代码现实自动获取菜单名称和标题?
此主题相关图片如下:自动获取菜单名称.png
[此贴子已经被作者于2013-3-20 13:47:32编辑过]