Dim dd As Integer
Dim pf As Integer
Dim hk As Integer
Dim kc As Integer
Dim ss As Integer
dd = MS1.TextMatrix(1, 6) ‘四个数值在数据库SQL中都是bigint型
pf = MS1.TextMatrix(1, 10)
hk = MS1.TextMatrix(1, 8)
kc = MS1.TextMatrix(1, 7)ss = (dd + hk - kc) / pf提示类型不匹配,VB为什么这也不行啊,问题出在哪了?

解决方案 »

  1.   

    TextMatrix取出来的好像是字符串dd   =  clng( MS1.TextMatrix(1,   6)  )
      

  2.   

    Dim   dd   As   long
    Dim   pf   As   long
    Dim   hk   As   long
    Dim   kc   As   long
    Dim   ss   As   double
    dd   =   MS1.TextMatrix(1,   6)   ‘四个数值在数据库SQL中都是bigint型 
    pf   =   MS1.TextMatrix(1,   10) 
    hk   =   MS1.TextMatrix(1,   8) 
    kc   =   MS1.TextMatrix(1,   7) ss   =   (dd   +   hk   -   kc)   /   pf