以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Hysql 无法在内部函数 或是命领窗口使用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194991)
--  作者：aoc103
--  发布时间：2025/2/13 20:11:00
--  Hysql 无法在内部函数 或是命领窗口使用
\'本函数用于获取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对象
--  作者：aoc103
--  发布时间：2025/2/13 20:15:00
--  
注意到了 table，需要被赋值一个真实存在的空表格 才能使用，可我这里需要在函数里使用，没有存在的表格可以赋值
--  作者：有点蓝
--  发布时间：2025/2/13 20:57:00
--  
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