一个最简单的值传递，在线等，大侠们帮忙啊

Question

j = Format(Dialog.Text1.Text, "general number")
    sql = "select top j 基本分表.* from 基本分表 order by 基本分表.总分 desc"
    Set rs1 = ESQL(sql)   '调用模块中的自我怎么使那个top后面的j变成数字啊？？？等待。。

Answer 1

改为：
sql = "select top " & j & " 基本分表.* from 基本分表 order by 基本分表.总分 desc"

Answer 2

也可显式转换，写作：
sql = "select top " & CStr(j) & " 基本分表.* from 基本分表 order by 基本分表.总分 desc"如果楼主注意到F2对象浏览器中VBA.Conversion下那些类型转换函数就好办了

Answer 3

sql = "select top "+CStr(VAL(Dialog.Text1.Text))+" 基本分表.* from 基本分表 order by 基本分表.总分 desc"