Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
如题 请例子 !
首先说明:我的表名都是使用英文,标题用中文。
ComboBox1的代码:
Dim cmb As WinForm.ComboBox = e.Sender
cmb.items.clear
Dim str As String = e.Form.Controls("ComboBox1").Value
For Each dc As DataCol In DataTables(str).DataCols
cmb.items.Add(dc.caption) ‘此处代码是找到表的标题名称。如果代码改为:cmb.items.Add(dc.name) 则是找到表名
Next
ComboBox2的代码:
Dim cmb As WinForm.ComboBox = e.Sender
cmb.items.clear
Dim str As String = e.Form.Controls("ComboBox1").Value
For Each dc As DataCol In DataTables(str).DataCols
cmb.items.Add(dc.name)
Next
问题出于:ComboBox2无法识别ComboBox1的标题名称;请帮忙解决
根据标题找出对应的表:
Dim s as string = "标题"
dim dt as datatable
for each t as datatable in datatables
if t.caption then
dt = t
exit for
end if
next
狐爸,说实话,我不知道这个代码如何使用。
下载信息 [文件大小: 下载次数: ] | |
![]() |