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

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

共有8481人关注过本帖树形打印复制链接主题：SQL后台取值

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

SQL后台取值 发帖心情

Post By：2019/4/21 10:54:00 [显示全部帖子]

SQLTable表

Dim r As Row = Tables(e.form.name & "_Table1").Current

Dim cmd As New SQLCommand

'Dim nm As String = r("立项编号")

Dim nm As String = r("项目名称")

Dim dt As DataTable

Dim Cols1() As String = {"项目名称","立项编号","简码","资质","区域"} '原数据

Dim Cols2() As String = {"项目名称","立项编号","简码","资质","区域"} '目标数据

cmd.C

cmd.CommandText = "S ELECT * From {XM_在建项目} Where 项目名称 = '" & nm & "'"

If cmd.ExecuteScalar > 0 Then

Messagebox.Show("在建项目已经存在【" & r("项目名称") & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Exit Function

End If

dt = cmd.Execu teReader(True)

For Each dr1 As DataRow In dt.DataRows

MessageBox.Show(1) '不行

Dim dr2 As DataRow = DataTables("XM_在建项目").AddNew()

MessageBox.Show(2) '不行

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

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

MessageBox.Show(3) '不行

dr2.Save '保存新增数据

红色区域代码无效，大神帮忙看看

[此贴子已经被作者于2019/4/21 11:03:26编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/4/21 11:01:00 [显示全部帖子]

开标时间控件输入2019-04-21 09：30 离开控件就变成2019-04-21 00：00

窗口动态控件

开标时间控件DateTimePicker型 SQL类型datetime

录入窗口afterload

Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("开标时间")

dp1.DateTimeFormat = DateTimeFormatEnum.DateTime '长日期格式

主窗口afterload

Tables(e.Form.name & "_table1").Cols("开标时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime) '转换长日期

[此贴子已经被作者于2019/4/21 11:03:57编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/4/23 16:16:00 [显示全部帖子]

Dim b1 As New GroupTableBuilder("统计表_开标本年",dt)

Dim nf As String = Date.Today.year-2

b1.Filter = "[年份] = '" & nf & "'"

b1.Groups.AddDef("开标时间",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称

b1.Groups.AddDef("开标时间","月") '添加日期列用于分组,并用"月"代替原名称

b1.Totals.AddDef("数量") '添加数量列用于统计

b1.Subtotal = True '生成汇总模式

b1.SubtotalLevel = 0 '只生成总计行

b1.Build '生成统计表

已解决

[此贴子已经被作者于2019/4/23 16:29:17编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/4/28 11:19:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2019.4.12.1
错误所在事件：窗口,内部合同,打印预览,Click
详细错误信息：
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80040154。

就一台电脑不能打印WORD

[此贴子已经被作者于2019/4/28 11:20:19编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/5/10 20:59:00 [显示全部帖子]

If e.DataCol.Name = "开piao金额" Then

If e.NewValue IsNot Nothing Then

'求总金额

Dim Filter As String = "[项目名称] = '" & e.NewValue & "'"

Dim je As String = DataTables("项目开piao_table1").Compute("Sum(开piao金额)", Filter) ‘代码不起作用’

If e.DataRow("中标价") < je Then

MessageBox.Show("本项目已开piao总金额【" & je & "】,大于中标价【" & e.DataRow("中标价") & "】,请核对!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

大神帮忙看看红色代码合计已开piao的总金额是不是大于中标价

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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编辑过]

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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表，代码无效

zoyong

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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

SQL表，只有加载了全部数据，红色代码才有效能不能用后台数据“中标日期”列直接生成编号

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

总数 28 1 2 3 下一页

主题：SQL后台取值