m_qi_num = m_weight \ 1000
If m_qi_num = 0 Then m_qi_num = 1
m_ziduan = "pbz" & CStr(m_qi_num)
ssql = "select [" & m_ziduan & "] as a from lz_gjdmk where dm = '" & m_country & "'"
Set rstSql = QuerysValue(ssql, 0, rc)
If rc=0 Then
m_money = rstSql!a
End If
If m_qi_num = 0 Then m_qi_num = 1
m_ziduan = "pbz" & CStr(m_qi_num)
ssql = "select [" & m_ziduan & "] as a from lz_gjdmk where dm = '" & m_country & "'"
Set rstSql = QuerysValue(ssql, 0, rc)
If rc=0 Then
m_money = rstSql!a
End If
解决方案 »
- 如何读取注册表键值
- 怎样把txt文件中的数据导出成csv文件(在线等,多谢)
- [求助]QB中一个类型不匹配的问题
- vb 如何访问java web service(使用soapclient 吗),急!在线等待
- 有BASIC资源的弄个下载诶!
- 请问SQL语句里面如何将字符类型的转换成日期类型?
- 使用CommonDialog控件的CancelError问题(高手请进)
- Access中的Update问题,在线等待,马上结贴
- select * from table1 where name like '%ab\'c%' escape '\' 在vb+access2000中出错 like如何使用单引号字符
- 谁能帮我写这样2个函数:1、从一文本文件中从开始位置读取指定长度的字符串。要求返回值能过滤回车符、换行符和...
- timer控件的疑问,若在间隔时间内不能执行完代码,会如何?
- vb中如何用excel生成报表,初学者麻烦大家啦,十万火急!
改为
ssql = "select " & m_ziduan & " as a from lz_gjdmk where dm = '" & m_country & "'"