- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选查询 通用模板 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115220)
-- 发布时间：2018/3/3 0:26:00
-- 筛选查询 通用模板 求助
筛选查询
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选查询.table |
-- 发布时间：2018/3/3 8:52:00
--
1、查询按钮最后改为
If Filter > "" Then
e.Form.Controls("Table1").Table.Filter = Filter
End If
2、true改为已付款
If e.Form.Controls("CheckBox4").Checked = True \' 如果付款状态选择了"已付"
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单", "已付款|雇员|产品")
For Each tn As WinForm.TreeNode In trv.Nodes
tn.Text = IIF(tn.Text = "true","已付款","未付款")
Next
End If
其它问题没看懂，截图说要什么效果
-- 发布时间：2018/3/3 12:49:00
--
NodeMouseClick
因为是根据CheckBox1选择
来动态输出 TreeView1 内容
NodeMouseClick
就需要动态实现 不能固定数值
-- 发布时间：2018/3/3 14:20:00
--
判断选择了哪一个CheckBox
if e.form.controls("CheckBox1").checked then
选择了CheckBox1的处理
elseif e.form.controls("CheckBox2").checked then
选择了CheckBox2的处理
else
选择了其它CheckBox的处理
endif
-- 发布时间：2018/3/3 22:37:00
--
此主题相关图片如下：微信截图_20180303223627.png
If e.Form.Controls("CheckBox2").Checked = True \' 如果付款状态选择了"已付"
e.Form.Controls("TreeView1").BuildTree( Vars("表名"), "CheckedComboBox3")
可以引用吗
End If
表名使用的 变量 列应用CheckedComboBox 内容 好像不生效
[此贴子已经被作者于2018/3/3 22:38:40编辑过]
-- 发布时间：2018/3/3 22:59:00
--
Dim sp1() As Integer = { 2,3,4,5,6 } 想把这句替换成下一句 有错误请教
\'Dim sp1() As Integer = 1 To 5
For Each i1 As Integer In sp1
Dim Values() As String = e.Form.Controls("CheckedComboBox" & i1).Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\\")
Dim dr As DataRow = e.Node.DataRow
Dim flt As String
For i As Integer = 0 To strs.Length - 1 \'\'间接获取目录树层级(Level)
For j As Integer = 0 To Values.Length - 1
If i = j Then \'\'只加入选定节点及以上的节点
flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And "
End If
Next
Next
If flt > "" Then
Tables(e.Form.Name & "_Table1").Filter = flt.SubString(0,flt.Length - 5)
End If
Next
点击节点还有有个错误
列“”不属于表 凭证明细。
[此贴子已经被作者于2018/3/3 23:07:34编辑过]
-- 发布时间：2018/3/4 14:32:00
--
应该判断一下值吧？
If Values(j) > "" then
flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And "
End If
-- 发布时间：2018/3/4 22:11:00
--
[此贴子已经被作者于2018/3/4 22:12:38编辑过]
-- 发布时间：2018/3/4 22:50:00
--
以下是引用yifan3429在2018/3/4 22:11:00的发言：
[此贴子已经被作者于2018/3/4 22:12:38编辑过]
如果还有问题，请具体说明。
-- 发布时间：2018/3/5 11:36:00
--
学习了