'本函数用于获取COMBOLIST
Dim Dp_val As String = args(0)
Dim Sql As String = "s elect * from tbl_词组 where 词组类型 = '" & Dp_val & "'"
'MessageBox.Show(sql)
Dim dt As System.Data.DataTable = db2.ExecuteDataSet(Sql).Tables(0) '执行存储过程 获取表结构
Dim t As Table
t.DataSource = dt '绑定数据表
Dp_val = dt.DataTable.GetComboListString("词组名称")
无法将dt里的数据 赋值给狐表的TABLE 或DATATABLE对象
注意到了 table，需要被赋值一个真实存在的空表格 才能使用，可我这里需要在函数里使用，没有存在的表格可以赋值
GetComboListString是Foxtable独有，.net的System.Data.DataTable是没有的。不绑定表格只能是自己遍历所有行处理
Dim dt As System.Data.DataTable = db2.ExecuteDataSet(Sql).Tables(0)
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
For i As Integer = 0 To dt.rows.Count - 1
cmb.Items.add(dt.rows(i)("词组名称"))
Next