UC知道vb.net axspreadsheet问题
来源：百度知道 编辑：UC知道 时间：2024/06/27 03:31:59
vb.net怎么实现下面问题
textbox1.text输入为一组数据textbox2.text就显示为另一组数据
像这样的数据对大约30对，我不想用if/elseif代码，写起来很烦。最好是能建立一个程序外部的数据库，这样更新起来也方便。
我试了试axspreadsheet，谁知读取外部xml文件，根本不会写出代码功能如下代码（意思）
if textbox1.text=axspreadsheet1.A列数据 then
textbox2.text=与A列数据同排的B列数据
else
textbox2.text=("无相关数据")
end if
最好使用axspreadsheet实在不行有没有类似办法，关键是要跟新起来方便，一个xml文件才几KB。
解决此问题，分数大大地！！
textbox1.text输入为一组数据textbox2.text就显示为另一组数据
像这样的数据对大约30对，我不想用if/elseif代码，写起来很烦。最好是能建立一个程序外部的数据库，这样更新起来也方便。
我试了试axspreadsheet，谁知读取外部xml文件，根本不会写出代码功能如下代码（意思）
if textbox1.text=axspreadsheet1.A列数据 then
textbox2.text=与A列数据同排的B列数据
else
textbox2.text=("无相关数据")
end if
最好使用axspreadsheet实在不行有没有类似办法，关键是要跟新起来方便，一个xml文件才几KB。
解决此问题，分数大大地！！
你说的一组数据是一行字符串，还是一组多行？
如果是一行，一共30对，数据不多情况下可以看看这个思路，
首先你把每组数据都压到一个DATATABLE里，DATATABLE结构分两列，一为A裂数据，二为与A对应的B列数据，这样你用一个循环就可以做到。
public Sub RetB(byval strDataA as string,byval dtDataAB as datatable) 'strDataA 就是textbox1.text的值，DataAB 就是刚所说的那个DATATABLE
Dim blnRec as Boolean = False
for i as integer = 0 to dtDataAB.rows.count - 1
if strDataA = dtDataAB.rows(i).Item(0).ToString Then
textbox2.text = dtDataAB.rows(i).Item(1).ToString
blnRec = ture
exit for
end if
next
if blnRec = False then
textbox2.text=("无相关数据")
end if
end sub