是不是二维码解码后的数据分别进入四个输入框内,这个意思吗?
Clear
TEXT to lcStr NoShow
&& 假设下面四行是二维码解码后的数据
编号:12345678
品名:HP服务器
单价:100,000.00
单位:台
ENDTEXT
Store Memlines(lcStr) To gnNumLines
&& 备注字段中的行数
For gnCount = 1 To gnNumLines
&& 循环备注字段行数次
? Mline(lcStr, gnCount)
&& 显示各行
Next
Thisform.text1.Value = Mline(lcStr, 1)
Thisform.text2.Value = Mline(lcStr, 2)
Thisform.text3.Value = Mline(lcStr, 3)
Thisform.text4.Value = Mline(lcStr, 4)