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