可以屏蔽掉,只需将你以上代码小改一下即可:
Dim m_data As Database
Dim m_tb As TableDefSet m_data = OpenDatabase(App.Path + "\sys_data.mdb")For Each m_tb In m_data.TableDefs
If Left(m_tb.Name, 4) <> "MSys" Then
Combo1.AddItem m_tb.Name
End if
Next
Dim m_data As Database
Dim m_tb As TableDefSet m_data = OpenDatabase(App.Path + "\sys_data.mdb")For Each m_tb In m_data.TableDefs
If Left(m_tb.Name, 4) <> "MSys" Then
Combo1.AddItem m_tb.Name
End if
Next
解决方案 »
- 怎样在Listview控件的属性框中添加“列首”
- 数据库里存储的是函数名,怎么读出来后让它执行该函数?
- 如何把指定文件修改日期读出来
- SOS!VB里timer控件优先级太低,根本就不可能达到1MS触发一次事件,请问有什么控件或者是函数可以做到1MS触发一次事件?
- 如何对颜色进行排列呢?
- 如何得到屏幕实际显示高度和宽度(Screen.Height是不行的)
- VB在win98下内存问题!!!!
- WebBrowser部件中没有Mouse事件和Key事件怎么办呢?
- vb中的函数、API有成千上万个,不知各位是如何如学的?
- ***¥及特殊符号的问题?***
- 请问;在设置状态条时,窗格标签中的样式属性sbrKana是干什么的?
- 有需要找工作的vb程序员可以看一下
If UCase(Left(m_tb.Name, 4)) <> "MSYS" Then