| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]数据库 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111524) |
| -- 作者：江南小镇 -- 发布时间：2017/12/23 20:07:00 -- [求助]数据库 老师，下面代码是在项目事件中生成临时表的代码。我想引用外部数据源的数据表给“授权表”标题列自动赋值 Dim cmd7 As New SQLCommand cmd7.C cmd7.CommandText = "Select * Fr om {窗口控件管理}" bms = cmd7.ExecuteReader(True) \'If e.DataCol.Name = "窗口名" OrElse e.DataCol.Name = "按扭名" Then \' Dim dr As DataRow \' Dim Filter As String \'Filter = "[窗口名] = \'" & e.DataRow("窗口名") & "\' And [按扭名] = \'" & e.DataRow("按扭名") & "\'" \'dr = DataTables("窗口控件管理").Find(Filter) \'e.DataRow("标题") = dr("标题") \' Else \' e.DataRow("标题") = Nothing \'End If \'End If [此贴子已经被作者于2017/12/23 20:07:50编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/12/24 15:22:00 -- 你什么代码不会写？如果要find，那就直接写 dr = bms.Find(filter) [此贴子已经被作者于2017/12/24 19:38:58编辑过]
|
| -- 作者：江南小镇 -- 发布时间：2017/12/24 18:56:00 -- \'If e.DataCol.Name = "窗口名" OrElse e.DataCol.Name = "按扭名" Then
\' Dim dr As DataRow
\' Dim Filter As String
\'Filter = "[窗口名] = \'" & e.DataRow("窗口名") & "\' And [按扭名] = \'" & e.DataRow("按扭名") & "\'"
\'dr = DataTables("窗口控件管理").Find(Filter)
\'e.DataRow("标题") = dr("标题")
\' Else
\' e.DataRow("标题") = Nothing
\'End If
\'End If
老师，标出的数据表要引用数据库的数据表
[此贴子已经被作者于2017/12/24 20:01:58编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/12/24 19:43:00 -- 1、用全局变量记录表格
bms = cmd7.ExecuteReader(True) vars("表") = bms
2、使用全局变量查找
dr = vars("表").Find(filter) |
| -- 作者：江南小镇 -- 发布时间：2017/12/24 19:57:00 -- 老师，直接引用后台数据 |
| -- 作者：江南小镇 -- 发布时间：2017/12/24 20:33:00 -- 老师，好了。
If e.DataCol.Name = "窗口名" OrElse e.DataCol.Name = "按扭名" Then |