[ 本帖最后由 xiaofang202 于 2009-4-28 11:12 编辑 ]作者: lijinshui 时间: 2009-4-28 11:12
Dim tt
tt = inputbox("input username") '101001004
For i =0 to datable.GetSheet("Action1").GetRowCount -1
var_ID = Datatable("username",dtLocalSheet)
if var_ID = tt then
msgbox Datatable("角色",dtLocalSheet)
end If
datatable.GetSheet("Action1").SetNextrow
Next作者: lijinshui 时间: 2009-4-28 11:16
Dim tt
tt = inputbox("角色") '计划录入
For i =0 to datable.GetSheet("Action1").GetRowCount -1
var_ID = Datatable("角色",dtLocalSheet)
if var_ID = tt then
msgbox Datatable("username",dtLocalSheet)
end If
datatable.GetSheet("Action1").SetNextrow