- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这么添加筛选对么？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55212)
-- 发布时间：2014/8/12 19:24:00
-- 这么添加筛选对么？
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.Tile \'显示模式为平铺
lvw.Images.LargeSize = New Size(65,75) \'定义大图标尺寸
lvw.TitleSize = New Size(150,90) \'设置平铺区域的大小
Dim cls() As String = {"productID","productNum","ischeck","color","weight"} \'定义列名
For i As Integer = 0 To cls.Length - 1 \'增加列
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i) \'指定列名
Next
For Each dr As DataRow In DataTables("订单").DataRows \'从数据表中提取数据
Tables("订单").Filter = "[ischeck] = \'1\' " .
Dim Key As String = dr("pic") \'获取此员工的照片文件
lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.ToolTipText = dr("czy") \'设置此行的动态提示
vr.ImageKey = Key \'设置图片键值
For Each cl As String In cls \'逐列取值
vr(cl) = dr(cl)
Next
Next
lvw.ResumeRedraw() \'恢复绘制
-- 发布时间：2014/8/12 19:25:00
--
你想做什么啊，什么意思啊。
-- 发布时间：2014/8/12 23:56:00
--
我是想在 程序启动的时候 自动检查 订单表 的 业务员 列
if 是空的 ， 就在users 表中找 id= leaderid 的行 并让 订单表的 业务员=users表的username的 值
然后在这个基础上在加上一个筛选条件 ischeck=1
else
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自定义登陆.foxdb |
[此贴子已经被作者于2014-8-13 1:23:11编辑过]
-- 发布时间：2014/8/13 9:11:00
--
For Each dr As DataRow In DataTables("订单").Select("业务员 is null")
Dim fdr As DataRow = DataTables("users").Find("id = \'" & dr("leaderId") & "\' and ischeck = true")
If fdr IsNot Nothing Then
dr("业务员") = fdr("username")
End If
Next