用列名作为筛选树节点名，怎样做截图那样 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用列名作为筛选树节点名，怎样做截图那样

共有8589人关注过本帖树形打印复制链接主题：用列名作为筛选树节点名，怎样做截图那样

有点蓝

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/3 13:37:00 [显示全部帖子]

tables("某表").current("某列") = e.form.controls("某文本框").text

有点蓝

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/3 20:36:00 [显示全部帖子]

非焦点行有很多，那么怎么知道给哪个赋值？

有点蓝

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/10 21:05:00 [显示全部帖子]

1、参考：http://www.foxtable.com/webhelp/topics/0875.htm

2、参考：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=130068

有点蓝

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 22:39:00 [显示全部帖子]

1、

If Tables("表A").current Is Nothing Then Return

If Tables("表A").current("聘用形式") = "正式工" Then

msgbox("已经是正式工")

Return

End If

If messagebox.show("是否转为正式工?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

Tables("表A").current("聘用形式") = "正式工"

End If

2、参考：http://www.foxtable.com/webhelp/topics/1921.htm

有点蓝

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/27 13:53:00 [显示全部帖子]

到表currentchanged事件更改需要显示的图片

有点蓝

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/29 11:19:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/0602.htm

有点蓝

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 14:33:00 [显示全部帖子]

Dim Cols1() As String = {"工号","姓名","部门"}

Dim Cols2() As String = {"工号","姓名","调前部门"}

For Each dr1 As DataRow In DataTables("基本信息").Select("[姓名] <> '' and 姓名 is not null")

Dim dr2 As DataRow = DataTables("调动管理").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

有点蓝

小大 38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 20:12:00 [显示全部帖子]

dim dr1 as row = Tables("基本信息").current

if dr1 isnot nothing then

Dim Cols1() As String = {"工号","姓名","部门"}

Dim Cols2() As String = {"工号","姓名","调前部门"}

Dim dr2 As DataRow = DataTables("调动管理").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

end if

有点蓝

小大 39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106298 积分：540619 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/1 13:16:00 [显示全部帖子]

Tables("表A").current("某个单元格") = Tables("表B").current("某个单元格")

下一主题 >> << 上一主题

总数 40 上一页 1 2 3 4

主题：用列名作为筛选树节点名，怎样做截图那样