[求助]数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据库

共有1577人关注过本帖树形打印复制链接主题：[求助]数据库

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1701 积分：11355 威望：0 精华：0 注册：2015/6/22 8:11:00

[求助]数据库 发帖心情

Post By：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

[此贴子已经被作者于2017/12/23 20:07:50编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/24 15:22:00 [只看该作者]

你什么代码不会写？如果要find，那就直接写 dr = bms.Find(filter)

[此贴子已经被作者于2017/12/24 19:38:58编辑过]

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1701 积分：11355 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：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

老师，标出的数据表要引用数据库的数据表

[此贴子已经被作者于2017/12/24 20:01:58编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/24 19:43:00 [只看该作者]

1、用全局变量记录表格

bms = cmd7.ExecuteReader(True)

vars("表") = bms

2、使用全局变量查找

dr = vars("表").Find(filter)

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1701 积分：11355 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2017/12/24 19:57:00 [只看该作者]

老师，直接引用后台数据

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1701 积分：11355 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2017/12/24 20:33: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 = bms.Find(Filter)
    If dr IsNot Nothing Then
        e.DataRow("标题") = dr("标题")
    Else
        e.DataRow("标题") = Nothing
    End If
End If

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

主题：[求助]数据库