Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQL后台取值


  共有7580人关注过本帖树形打印复制链接

主题：SQL后台取值
帅哥哟，离线，有人找我吗？
zoyong
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/6/19 12:17:00 [只看该作者]

'加载投标立项数据,取消中标登记标志
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "s elect * from {JY_投标立项} where 项目名称 ='" & r("项目名称") & "'"
Dim dt As DataTable
Dim dr As DataRow
dt = cmd.ExecuteValues(True)
If dt.DataRows.Count > 0 Then
    dr = dt.DataRows(0)
    dr("中标") = False       '本行代码无效
    dr.Save
End If    


.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2019.4.12.1
错误所在事件：自定义函数Translate_TableMenu
详细错误信息：
调用的目标发生了异常。
给定关键字不在字典中。
[此贴子已经被作者于2019/6/19 12:21:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/19 12:23:00 [只看该作者]

ExecuteValues

 

改成

 

ExecuteReader
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/7/9 20:21:00 [只看该作者]


Dim bm As String = Vars("bm")
Dim xmmc As String = Vars("xmmc")
'加载数据表
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "se lect * from {" & bm & "} where 项目名称 = '" & xmmc & "'"
dt = cmd.ExecuteReader()  '生成一个临时表
     Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
    If bm = "JY_投标立项" Then
        rgd.Table = Tables("首页_Table4") '绑定临时表    ‘这个如何绑定dt这个临时表
        rgd.Columns = "项目名称|资质|区域|预算造价|到场人员"
        
    End If

Tables("首页_Table4").Cols("项目名称").RecordRowHeight = 2 '高度为2倍行高
rgd.Build() '重新生成记录窗口
[此贴子已经被作者于2019/7/9 20:28:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/9 20:33:00 [只看该作者]

cmd.CommandText = "se lect * from {" & bm & "} where 项目名称 = '" & xmmc & "'"
Tables("首页_Table4").DataSource  = cmd.ExecuteReader()  '生成一个临时表
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
If bm = "JY_投标立项" Then
    rgd.Table = Tables("首页_Table4") '绑定临时表    '这个如何绑定dt这个临时表
    rgd.Columns = "项目名称|资质|区域|预算造价|到场人员"
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/7/17 21:16:00 [只看该作者]

目录树自动勾选行

’下拉窗口的DropdownOpening代码

'选中已设置加载的行  
Dim ss As String = “A|B|C|D”
If ss > "" Then
   Dim vals() As String = ss.Split("|")
   For Each val As String In vals
        If tr.Rows.Contains(val) Then
            tr.Rows(val).Checked = True     ‘代码无效
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/18 9:03:00 [只看该作者]

没看出来这段代码和目录树有什么关系，贴出完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/7/18 14:46:00 [只看该作者]

'显示百分号
DataTables(e.Form.name & "_table1").DataCols("进度").SetFormat("#0%")

SQL表，代码无效
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/18 15:00:00 [只看该作者]

必须在加载之后设置
DataTables(e.Form.name & "_table1").DataCols("进度").SetFormat("0%")

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/7/23 11:58:00 [只看该作者]

DataColChanged代码

'Dim cmd As New SQLCommand        '后台附值
'cmd.C
'cmd.CommandText ="s elect * from {XM_在建项目}"
'Dim dt As DataTable=cmd.ExecuteReader(True)

If e.DataCol.Name = "中标日期" Then
    If e.DataRow.IsNull("中标日期") Then
        e.DataRow("档案编号") = Nothing
        e.DataRow("年份") = Nothing '如果为空,则清除
    Else
        e.DataRow("年份") = Format(e.DataRow("中标日期"),"yyyy")
        Dim bh As String = "P" & Format(e.DataRow("中标日期"),"yy") '取得编号的8位前缀
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(档案编号)","档案编号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
        If max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(bh.length)) + 1 '获得最大编号的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("档案编号") = bh & Format(idx,"000")
    End If
End If

SQL表，只有加载了全部数据，红色代码才有效      能不能用后台数据“中标日期”列直接生成编号   
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 12:06:00 [只看该作者]


 回到顶部
总数 54 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询