- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126329)
-- 发布时间：2018/10/18 17:01:00
-- [求助]数据记录
我想弄个数据统计··
为啥数据和记录不一样呢·
代码如下
e.Form.Controls("Label6").text="总共收录BOM数据:" & Tables("BOM数据库").DataTable.Compute("Count(图号)") & "条"
· 还有请问老师·如何去除相同的数据·只记录不一样的行
·
此主题相关图片如下：001.jpg
此主题相关图片如下：001.jpg-- 发布时间：2018/10/18 17:58:00
--
代码请写到timertick事件去
http://www.foxtable.com/webhelp/scr/1301.htm
-- 发布时间：2018/10/19 7:27:00
-- 回复：（有点甜）代码请写到timertick事件去 ...
那我的上面图片显示怎么和实际数量不一样呢
-- 发布时间：2018/10/19 8:27:00
--
以下是引用liumiao123在2018/10/19 7:27:00的发言：
那我的上面图片显示怎么和实际数量不一样呢
那我的上面图片显示怎么和实际数量不一样呢
1、你代码写写在什么事件？如果写在afterLoad事件，一打开窗口就不对？
2、改成下面，写到timetick事件
e.Form.Controls("Label6").text="总共收录BOM数据:" & e.form.controls("Table1").table.rows.count & "条"
http://www.foxtable.com/webhelp/scr/1301.htm
-- 发布时间：2018/10/19 9:25:00
-- 回复：（有点甜）以下是引用liumiao123在2018/10/19 7...
请问老师，我如果要实现在Label控件 现实 指定日期-今天日期 怎么实现·呢
这下面的哪里错了呢
Dim T1 As Date = "2018-12-31"
Dim T2 As Date = Date.now
Dim T2 As Date = Date.now
Dim abl As WinForm.Label
abl = e.Form.Controls("ts")
abl.Text = T1-T2
---------------------
-- 发布时间：2018/10/19 9:27:00
--
两个日期相减？看看这里
http://www.foxtable.com/webhelp/scr/0287.htm
-- 发布时间：2018/10/19 9:37:00
-- 回复：（有点甜）两个日期相减？看看这里 ht...
那怎么把结果显示在Label上面呢
-- 发布时间：2018/10/19 9:45:00
--
e.Form.Controls("Label6").text=(T1-T2).TotalDays
-- 发布时间：2018/10/19 17:11:00
-- 回复：（有点蓝）e.Form.Controls("Label6").text=(T1...
请问·老师下·发布项目后左上角出现个“文件”怎么去掉
RT---
此主题相关图片如下：0001.jpg
-- 发布时间：2018/10/19 17:36:00
-- 回复：（有点蓝）e.Form.Controls("Label6").text=(T1...
请问老师··我如何实现·删除按钮的时候触发·密码·正确的时候可以执行删除·
下面代码·哪里出错呢·不执行
Dim psd As String
InputValue(psd,"验证","请输入密码") \'输入密码
If psd = "521" Then \'如果密码正确
Syscmd.Row.Delete()
Else
Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim r As Row = Tables("BOM数据库").Current
Dim msg As String = "D#" & "BOM数据库" & "#" & r("_Identify")
r.Delete()
Tables("BOM数据库").Save()
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
如何修改呢
[此贴子已经被作者于2018/10/19 17:38:10编辑过]