Question

vb缺少函数或变量

Private Sub Command2_Click()
If Combo1.ListIndex = 0 Then
Dim PH As String
Dim s As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open = "select LJ from dbo.Table_tl WHERE format(cdate,'yyyymmddhh')='" & Format(DTPicker1.Value, "yyyymmdd") & "00'"
s = rs
rs.Open = "select LJ from dbo.Table_tl WHERE format(cdate,'yyyymmddhh')='" & Format(DTPicker1.Value + 1, "yyyymmdd") & "00'"
s = rs - s
rs.Close
End If
End Sub

Combo1是一个选择 LJ 变量的框
窗体里建了 adodc1 ， DataGrid1 和 DTPicker1
运行一直提示 缺少函数或变量
求大神指教
上面
dim PH as string
是
dim LJ as string

提示 rs.open 错误

Answer 1

使用ADO打开数据表连接必须满足机构条件：1、连接数据库的对象；2、连接的数据表；3、打开数据表的方式；4、需要满足的条件。在你的语句中有问题。
rs.Open = "select LJ from dbo.Table_tl WHERE format(cdate,'yyyymmddhh')='" & Format(DTPicker1.Value, "yyyymmdd") & "00'"

不知道dbo.Table_tl是不是应该数据表的名称；在WHERE的后面我觉得有问题：应该是一个字段与一个值进行比较，但你的好像是二个值的对比；没有数据库连接对象，没有数据表打开的方式；另外你的LJ如果是字符串，那么肯定是不对的，另外Open打开的是数据表，不能使用等号。给你一个标准的范例：
rs.Open = "select 字段1,字段2,字段3 from 数据表名称 WHERE 字段1='" & 一个变量的值 & “‘” ,数据库连接对象,2，2

Answer 2

Private Sub GCD(ByRef m As Long, ByRef n As Long)问题出在这里！你调用n1 = GCD(m1, n1)
需要有返回值，sub是没有返回值的，应该是Private function GCD(ByRef m As Long, ByRef n As Long)，另外在GSD里要用GCD=返回值才可以！

追问

新手。不太懂。可以把上面写好的无错代码发一下么？谢谢大神