存在问题:文本框中输入数字后可以在xls文件中查找到正确内容并显示,但第二次输入内容
回车后却出错了,不知是什么原因?
import win.ui;
/*DSG{{*/
mainForm = win.form(text="aardio form";right=799;bottom=467;max=false;min=false)
mainForm.add(
借阅人={cls="static";text="借阅人";left=62;top=231;right=329;bottom=253;align="center";aw=1;center=1;font=LOGFONT(h=-19;name='仿宋');transparent=1;z=1};
扫码={cls="static";text="请扫码或输入编码";left=66;top=158;right=252;bottom=180;align="center";aw=1;center=1;font=LOGFONT(h=-19;name='仿宋');transparent=1;z=2};
编码={cls="edit";left=267;top=155;right=418;bottom=183;align="center";border=1;font=LOGFONT(h=-19;name='仿宋');multiline=1;z=3}
)
/*}}*/
import com.excel;
var 编码
var rec_借阅者名册;
var excelServer;
var excel = com.CreateObject("Excel.Application") ; //创建Excel对象
var path="d:\";
excelSever = com.excel(true);
var xls_借阅者名册 = excelSever.WorkBooks.Open(path+"借阅者名册.xls");
var sheet_借阅者名册 = xls_借阅者名册.Worksheets(1);
var rec_借阅者名册 = sheet_借阅者名册.UsedRange.Rows.Count;
mainForm.编码.wndproc = function(hwnd,message,wParam,lParam){
if( message==0x100 && wParam == 0xD/*回车键*/ ){
var 行=sheet_借阅者名册.UsedRange.find(mainForm.编码.text).row();
mainForm.借阅人.text=sheet_借阅者名册.Cells(行,4).Value2;
mainForm.编码.text="";
//addr="";
}
}
回车后却出错了,不知是什么原因?
import win.ui;
/*DSG{{*/
mainForm = win.form(text="aardio form";right=799;bottom=467;max=false;min=false)
mainForm.add(
借阅人={cls="static";text="借阅人";left=62;top=231;right=329;bottom=253;align="center";aw=1;center=1;font=LOGFONT(h=-19;name='仿宋');transparent=1;z=1};
扫码={cls="static";text="请扫码或输入编码";left=66;top=158;right=252;bottom=180;align="center";aw=1;center=1;font=LOGFONT(h=-19;name='仿宋');transparent=1;z=2};
编码={cls="edit";left=267;top=155;right=418;bottom=183;align="center";border=1;font=LOGFONT(h=-19;name='仿宋');multiline=1;z=3}
)
/*}}*/
import com.excel;
var 编码
var rec_借阅者名册;
var excelServer;
var excel = com.CreateObject("Excel.Application") ; //创建Excel对象
var path="d:\";
excelSever = com.excel(true);
var xls_借阅者名册 = excelSever.WorkBooks.Open(path+"借阅者名册.xls");
var sheet_借阅者名册 = xls_借阅者名册.Worksheets(1);
var rec_借阅者名册 = sheet_借阅者名册.UsedRange.Rows.Count;
mainForm.编码.wndproc = function(hwnd,message,wParam,lParam){
if( message==0x100 && wParam == 0xD/*回车键*/ ){
var 行=sheet_借阅者名册.UsedRange.find(mainForm.编码.text).row();
mainForm.借阅人.text=sheet_借阅者名册.Cells(行,4).Value2;
mainForm.编码.text="";
//addr="";
}
}