- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97798)
-- 发布时间：2017/3/18 15:06:00
-- [求助]赋值
老师，我要把"客户供应商”同时赋值给多个组合框作为列表项目。
-- 发布时间：2017/3/18 15:28:00
--
Dim jsfs As New SQLCommand
Dim js As DataTable
jsfs.C
jsfs.CommandText = "SｅLECT DISTINCT 客户供应商 From {qzfl}"
js = jsfs.ExecuteReader
dim cb as string = js.GetComboListString("客户供应商")
e.Form.Controls("ComboBox1").ComboList = cb
e.Form.Controls("ComboBox2").ComboList = cb
-- 发布时间：2017/3/18 16:11:00
--
谢谢老师
-- 发布时间：2017/3/20 23:18:00
--
老师，下面代码是从内部表获取，我想从外部表获取。谢谢。
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = DataTables("qzfl").GetComboListString("客户供应商", "群组分类 = \'" & str & "\'")
-- 发布时间：2017/3/21 8:56:00
--
cmb.ComboList = DataTables("qzfl").SQLGetComboListString("客户供应商", "群组分类 = \'" & str & "\'")
-- 发布时间：2017/3/21 20:17:00
--
老师好
Dim cate = Args(0)
Dim xll As New SQLCommand
Dim xl As DataTable
xll.C
xll.CommandText = "SEL ECT DIST INCT " & cate & " From {列表项目}"
xl = xll.ExecuteReader
If Args.length > 1 Then
For i As Integer = 1 To Args.length - 1
Dim cbo = Args(i)
cbo.ComboList = xl.GetComboListString(cate)
Next
End If
老师，下面代码引用上面自定义函数报错
Functions.Execute("SetComboList","学历",e.Form.Controls("ComboBox1"),e.Form.Controls("ComboBox2"),e.Form.Controls("ComboBox3"))
-- 发布时间：2017/3/21 20:26:00
--
报什么错误？
-- 发布时间：2017/3/21 21:16:00
--
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2016.7.29.1
错误所在事件：
详细错误信息：
无效的 SQL语句；期待 \'DELETE\'、\'INSERT\'、\'PROCEDURE\'、\'SELECT\'、或 \'UPDATE\'。
-- 发布时间：2017/3/21 21:21:00
--
xll.CommandText = "SEL ECT DIST INCT " & cate & " From 列表项目"
msgbox(xll.CommandText)
看弹出的sql是什么。把sql放到数据库执行有没有问题
-- 发布时间：2017/3/21 21:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |