Office中国论坛/Access中国论坛

标题: 求高手帮,有帐会管理系统供下载 [打印本页]

作者: ZZBZZBZZZB 时间: 2009-6-9 18:16
标题: 求高手帮,有帐会管理系统供下载

Private Sub 总账科目_AfterUpdate()
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm As String, i As Integer, mysql As String
Dim tyu产 As String
tyu产 = 总账科目.Value
Set rsmx = New ADODB.Recordset
mysql = "select 明细科目 from 明细科目表 where  总帐科目 = " & tyu产
rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
         rsmx.MoveFirst
      For i = 1 To rsmx.RecordCount

               mxkm = rsmx.Fields(0)


         明细科目.AddItem mxkm

         rsmx.MoveNext
      Next i
rsmx.Close
提示有错误       明细科目,总帐科目都是文本形的错在哪里呀

作者: ly 时间: 2009-6-13 16:10
1# ZZBZZBZZZB

请试一试：
mysql = "select 明细科目 from 明细科目表 where 总帐科目 = '" & tyu产
& "'"

作者: ZZBZZBZZZB 时间: 2009-6-15 10:57
谢了

作者: wen123456 时间: 2009-12-21 22:40
学习不学习i

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)