- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询修改问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154586)
-- 发布时间：2020/9/19 12:43:00
-- 查询修改问题
如图，查询点击代码如下：
Dim d As String = e.Form.Controls("ComboBox1").value
With DataTables("主数据表")
.LoadFilter= "委托单号= " & d
.load()
End With
运行不成功，请问如何修改为好？谢谢！
-- 发布时间：2020/9/19 12:45:00
-- 查询修改问题
此主题相关图片如下：查询修改问题.jpg
-- 发布时间：2020/9/19 12:51:00
--
委托单号是字符列的话
Dim d As String = e.Form.Controls("ComboBox1").valueIf d > "" Then
With DataTables("主数据表")
.LoadFilter= "委托单号= \'" & d & "\'"
.load()
End With
End If
-- 发布时间：2020/9/19 12:56:00
--
谢谢！代码可以运行，但还有一个问题，筛选后选择不了其它委托单号了，如何修改呢？
-- 发布时间：2020/9/19 13:12:00
--
Dim d As String = e.Form.Controls("ComboBox1").value
If d > "" Then
With DataTables("主数据表")
.LoadFilter= "委托单号= \'" & d & "\'"
.load()
End With
Else
With DataTables("主数据表")
.LoadFilter= ""
.load()
End With
End If
-- 发布时间：2020/9/19 13:21:00
--
上楼代码运行时，必须要手动删掉combox里面的文字，再按查询按钮，才能恢复所有的列表，能否有一个方法能够在任何时候combox下拉列表里面都可以选择所有的列表呢？
非常感谢！
-- 发布时间：2020/9/19 13:50:00
--
combox下拉列表是怎么生成的
-- 发布时间：2020/9/19 15:07:00
--
是直接用主数据表作为数据列表形成的，这是原因吧，有没有别的思路？
-- 发布时间：2020/9/19 15:11:00
--
ComboBox，enter事件
e.Sender.ComboList = DataTables("主数据表").SqlGetComboListString("委托单号")
-- 发布时间：2020/9/19 15:14:00
--
[此贴子已经被作者于2020/9/19 15:14:42编辑过]