[求助]可否帮我看看我的函数出了什么问题

wtcj

请大家帮忙　！！

LucasLynn

以下是引用LucasLynn在2006-5-13 16:35:00的发言：
说实话，你写了这么多，我还是没明白你遇到了什么问题。

wtcj

问题我写出来了

在程序中大大的字标出了,请多指教!

LucasLynn

你的SQL语句中用的是CityCode，我在IIS_N中找不到这个字段，只有“城市代码”

Access不懂中英文翻译的说……

wtcj

以下是引用LucasLynn在2006-5-13 17:01:00的发言：


你的SQL语句中用的是CityCode，我在IIS_N中找不到这个字段，只有“城市代码”

Access不懂中英文翻译的说……

"城市代码"是CityCode字段的列标题 ,为了看着方便,所以SQL中还是要用CityCode的

wtcj

真的太着急了,我对深层的编码不熟[em06][em06][em06][em06][em06][em06][em06]

wtcj

怎么办呢?

andymark

没细看,试试下面的代码:

KindCode = Left(TypeCode, 3)
Set Conn = CurrentProject.Connection
  Select Case KindCode
    Case "IIS"
       CityCode = DLookup("[IIS_CityCode]", "da_JBXX", "[EmployeeID]= " & EmployeeID & "")
      
            strSQL = "SELECT * FROM IIS_N WHERE IIS_N.CityCode='" & CityCode & "' AND left(IIS_N.TypeCode,3)='" & TypeCode & "' and ((IIS_N.Offer)=True)"
   
        Rec.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
       Do While Not Rec.EOF
          Offer = Rec.Fields("Offer")
          If Offer = False Then
          P = 0
          C = O
          Exit Sub
          End If
      
         
         If TypeCode = "IISZ" Then
            P_value = Rec.Fields("Value_P")
            C_value = Rec.Fields("Value_C")
            P = P_value
            C = C_value
          Else
            P_rate = Rec.Fields("Rate_P")
            C_rate = Rec.Fields("Rate_C")
            BS = BaseMoney(CityCode, KindCode, Base)
            P = BS * P_rate
            C = BS * C_rate
         End If
          Rec.MoveNext
          Loop

[此贴子已经被作者于2006-5-14 0:24:17编辑过]

wtcj

对象关闭时不允许操作??

这是什么意思?

wtcj

我发现可能是这句有错误

strSQL = "SELECT * FROM IIS_N WHERE (((IIS_N.TypeCode)=" & TypeCode & ") AND ((IIS_N.CityCode)=" & CityCode & ") AND ((IIS_N.LookThrough)=True) AND ((IIS_N.Current)=True));"



在本地窗口窗口中出来的是

"SELECT * FROM IIS_N WHERE (((IIS_N.TypeCode)=IISP) AND ((IIS_N.CityCode)=SH) AND ((IIS_N.LookThrough)=True) AND ((IIS_N.Current)=True));"

IISP和SH没有引号

怎么办呢

正确的应该是的到这一句:

SELECT * FROM IIS_N WHERE (((IIS_N.TypeCode)="IISP") AND ((IIS_N.CityCode)="SH") AND ((IIS_N.LookThrough)=True) AND ((IIS_N.Current)=True));


请大家告诉我该怎样写??