高分请VB榜忙翻译
发布网友
发布时间：2022-04-23 14:01
我来回答
共3个回答
热心网友
时间：2023-10-17 03:51
小试一下
Do While Not rs.EOF 这句上面应该有一局rs.movefirst或者rs.open，这样这句的意思就是从rs的第一条记录到最后一条记录做循环
tagnamArray(i) = Trim(rs("tagnam")) rs中的tagnam这一列去空格赋值给数组tagnamarray
i = i + 1
count = count + 1 计数器
rs.MoveNext rs移动到下一条
Loop
rs.Close 关闭连接
Set rs = Nothing 施放内存
For k = 0 To count - 1 因为从0开始所以是count-1才能表示出条数（从0开始是考虑到前面定义的数组也是从0开始的）
tagnam = Trim(tagnamArray(k)) 去空格后赋值
Date1 = Format(Now - 1, "YYYY-MM-DD HH:MM:SS") 给date控件赋值的问题了
rs.Open "Select Max(DRAWDATE) RQ from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' and trim(RANGE)='上限' ", ADOCC, , adCmdTable 打开rs连接
If rs("RQ") <> "" Then 如果rs的rq这列不为空
'MsgBox tagnam
Date1 = rs("RQ")
End If
OVER~
==============================补充==============================
对数组会有一组数据记录在里面，那么就用你上面的k区分，比如说tagnamArray(k)中k=0的时候是取tagnamArray(0)中的记录（对你的题目就是第一个记录），k=1是第二条记录。。。。。以此类推
trim的作用是去掉字符串前面后面的空格，比如说trim（" 12 "）之后的结果是"12"
赋值语句不用讲了吧，a=b就是把b的值给a
热心网友
时间：2023-10-17 03:51
cvx dx简单点说就是：循环检索 tagnam 表中的仪表的上小试一下
Do While Not rs.EOF 这句上面应该有一局rs.movefirst或者rs.open，这样这句的意思就是从rs的第一条记录到最后一条记录做循环
tagnamArray(i) = Trim(rs("tagnam")) rs中的tagnam这一列去空格赋值给数组tagnamarray
i = i + 1
count = count + 1 计数器
rs.MoveNext rs移动到下一条
Loop
rs.Close 关闭连接
Set rs = Nothing 施放内存
For k = 0 To count - 1 因为从0开始所以是count-1才能表示出条数（从0开始是考虑到前面定义的数组也是从0开始的）
tagnam = Trim(tagnamArray(k)) 去空格后赋值
Date1 = Format(Now - 1, "YYYY-MM-DD HH:MM:SS") 给date控件赋值的问题了
rs.Open "Select Max(DRAWDATE) RQ from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' and trim(RANGE)='上限' ", ADOCC, , adCmdTable 打开rs连接
If rs("RQ") <> "" Then 如果rs的rq这列不为空
'MsgBox tagnam
Date1 = rs("RQ")
End If
OVER~ 限值是多少。
热心网友
时间：2023-10-17 03:52
简单点说就是：循环检索 tagnam 表中的仪表的上限值是多少。假如正确的话就给分吧
高手帮忙翻译一下VB代码
Private Sub Form_Load()Set g_rs = g_db.OpenRecordset("bookType", dbOpenTable) '打开数据库 cboType.Clear '清空列表 If g_rs.RecordCount > 0 Then '如果项目个数>0 g_rs.MoveFirst '第一个 Do While Not g_rs.EOF '在没有到达最后一个之前 cboType.AddItem g_rs!类别代码 + "...
请高手翻译vb代码,谢谢
Dim xo2 As Integer Private Sub Pic_Click() '单击picture Init '调用初始化函数 '下面的60000，为了测试我改为100 Timer3.Interval = 100 '设置计时器，60000=1分钟执行一次代码 Timer3.Enabled = True '计时器运行 End Sub Private Sub Init() '初始化函数 Dim i As Integer Pic.Cls '清...
VB高手帮忙翻译一段代码,谢谢啦!
Dim SQL As String Dim rs As ADODB.Recordset ’以下是判断输入的用户名是否为空，是的话就弹出只有确定的警告窗口。If Trim(UserName.Text) = "" Then MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"Exit Sub '用户名输入框重获焦点 UserName.SetFocus ’如不为空，则在表Use...
请高手来给翻译一段VB代码
Private Sub Command1_Click() //这个不用注释了吧 Dim aa As Integer //定义一个整型变量 txtsql = "" //定义一个字符串 If Trim(Text1(0).Text) <> "" Then //去掉两端空格并判断是否为空 aa = 1 //给变量1 If txtsql = "" Then //判断字符串是否为空 txtsql = "xj.学号...
VB语言帮忙翻译下哦~~!
If MsgBox("真的要退出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then ’判断弹出的窗口用户是不是点击了取消如果是 Cancel = 1 ’变量Cancel的植就是1 End If ’结束判断 End Sub ’结束事件 Private Sub MDIForm_Load()’下边没时间给你说了—.—！Loadi...
请教高手帮忙翻译VB代码
s1 = Split(CodeConversionTxt1(.responseBody), "]);") '按]);将字符串分解到s1 Set IE = Nothing ’释放IE对象。s2 = Split(Split(s1(0), "kkListNumber.show([")(1), ".") 同前面的注释 s(0) = Right(s(0), 60) 从s(0)的串右面取60个字符。s(UBound(s)) = Left(s(...
vb 代码 帮忙翻译一下 逐句
Dim sql As String 定义sql If Trim(Text1.Text) = "" Then 去掉text1.text里面空格，然后判断是否为空 MsgBox "图书种类不能为空", vbOKOnly + vbExclamation, "" 消息框，Text1.SetFocus 光标返回text1 Exit Sub End If If Trim(Text2.Text) = "" Then 如掉空格，然后判...
求会VB的帮忙翻译下这个代码大意
KeyCode不同值对应键盘上的光标方向键 38 上 40 下 37 左 39 右 65 68 87 83应该对应小键盘上的4 6 2 8（我的键盘没有小键盘，没测）楼主的代码，应该是用键盘上的方向键，去控制一些什么东西。 如果按下的不是方向键，就保持原来的方向。
高分求VB中英文资料
帮助的人:0 我也去答题访问个人页 关注 展开全部 While this is not a 'code' article per say, I believe it is worth posting here, since most of us want our applications to work on Vista (right?). No votes necessary - just some food for thought to perhaps assist you in making your...
VB中英文对应的中文?(满意最高加200分)
Action 返回或设置被显示的对话框(CommandDialog)的类型,在设计时无效。ActiveControl 活动控件 ActiveForm 活动窗体 Alignment 文本对齐类型 Align 指定图形在图片框中的位置 Archive 文本列表框是否含有文档属性 AutoRedraw 控制对象自动重画 AutoSize 控制对象自动调整大小 BackColor ...
